Поиск в тексте - VB

Формулировка задачи:

Привет всем. Ребят подскажите пожалуйста. У меня есть текстовый файл test.txt . с номерами телефонов. мне нужно открыть это файл и найти в нем номер телефона ну например "22-44-55". Может кто скрипт простейший подсказать. Просто только осваиваю VB и пока многого не знаю.

Решение задачи: «Поиск в тексте»

textual
                            Листинг программы 
                        

                            Function Search(Fname as string, Phone as string) As boolean
 Dim CF As String 
   Open Fname For Binary As #1 
      CF = Input(FileLen(Fname), 1)   
   Close #1 
     If Instr(CF, Phone) <> 0 then       Search=True
End Function
                        