4 Private Sub Filel Click() MsgBox File1.FileName End Sub 1414 Private Sub File1_Click() MsgBox File1.FileName End Sub