Работа с файлами в Visual Basic

[Matrix6993]

Доброй ночи, всем! есть такая задачка, простенькая вроде. Но я че то как то не могу ее реализовать! Итак, на форме помещены компоненты ComboBox1 и Label1, помимо них существует еще 2 файла с расширением txt, в одном написаны ФИО(в столбик), а в другом Телефоны каждого(в столбик). При запуске программы должно происходить следуещее: выбираем в ComboBox1 ФИО, и в Lable1 должен отобразиться телефон этого человека.
Помогите пожалуйста. Заранее спасибо!

[DiemonStar]

попробуйте посмотреть в стандартном хелпе по ВБА описание команд:

Открыть/создать файл: Open
Закрыть файл: Close, Reset
Управление выводом: Format, Print, Print #, Spc, Tab, Width #
Копирование файла: FileCopy
Получение информации о файле: EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Loc, LOF, Seek
Управление файлами: Dir, Kill, Lock, Unlock, Name
Чтение из файла: Get, Input, Input #, Line Input #
Длина файла: FileLen
Атрибуты файла: FileAttr, GetAttr, SetAttr
Установить позицию в файле: Seek
Запись в файл: Print #, Put, Write #

[gaw4]

Dim F#, fn$, MyText$
Dim k%, num%
Private Sub Combo1_Click()
num = Combo1.ListIndex + 1
fn = App.Path & "\tel.txt"
If Dir(fn) <> "" Then
F = FreeFile
k = 0
Open fn For Input As #F
Do Until EOF(F)
k = k + 1
Line Input #F, MyText
If k = num Then
If Trim(MyText) <> "" Then
Label1 = MyText
Else
k = 0
End If
Exit Do
End If
Loop
Close #F
If k <> num Then Label1 = "no num tel"
Else
MsgBox "no fyle tel"
End If
End Sub

Private Sub Form_Load()
fn = App.Path & "\fio.txt"
If Dir(fn) <> "" Then
F = FreeFile
Open fn For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Combo1.AddItem MyText
Loop
Close #F
 Combo1 = "tel"
Else
MsgBox "no fyle fio"
End If
End Sub

[Matrix6993]

gaw4, спасибо большое, очень выручил!