Программа простого поиска на Visual Basic - VB

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

Доброго времени суток! Создаю форму при помощи которой будет производится поиск по фамилии. Существует некая база где в каждой строке через пробел написаны ФИО серия и номер паспорта. В Textbox1 вводится Фамилия и при нажатии на кнопку в Textbox2 выводятся список совпадающих фамилий и причастные к ним данные. В итоге я намучал следующий код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim A As Integer
Dim S As String
S = "C:\programmapost\reestr.txt"
 
A = FreeFile
Open S For Input As A
Do While Not EOF(A)
Line Input #A, sText
If Text1.Text Like sText Then
Text2.Text = Text2.Text & sText & vbNewLine
End If
Loop
Close #A
End Sub

Проблема в том, что в данном случае в первое поле надо вводить строчку совпадающую на 100% с искомой. А если через пробел к фамилии добавить какие-то еще данные, то соответственно тоже не ищет. Возможно есть какая-то другая функция схожая с Like, которая позволит искать по первым 3-4 буквам фамилии и позволит выводить всю строчку. Заранее благодарен за помощь.

Решение задачи: «Программа простого поиска на Visual Basic»

textual
                            Листинг программы 
                        
If LCase$(sText) Like LCase$("*" & Text1.Text & "*") Then