Поисковик на Visual Basic

[yula92]

В текстовой файл через пробел записываются фамилия имя отчество дата рождения, любое колчичество строк.
Нужно создать поиск,по вводу слова или нескольких слов должно выдать всю строку.
Вот как я попыталась сделать,только не работает:

Private Type FIO
firstname As String * 15
midlename As String * 15
lastname As String * 15
age As String * 10
End Type
Private Sub Command1_Click()
Dim x() As String, test As FIO, firstname As String, midlename As String, lastname As String, age As String, i As Integer, k As Integer, n As Integer, l As Integer, v As String
n = Len(test)
Open "D:\поиск\1.txt" For Random As #2 Len = Len(Text)
For i = 1 To LOF(2) / n
Get #2, i, test
x = Split(Text1.Text)
v = LCase(Trim(test.firstname)) & LCase(Trim(test.lastname)) & LCase(Trim(test.midlename)) & LCase(Trim(test.age))
If (InStr(x(0), Trim(test.firstname)) And InStr(x(1), Trim(test.lastname))) Then
Label1.Caption = test.firstname
Label2.Caption = test.midlename
Label3.Caption = test.lastname
Label4.Caption = test.age
End If
Next i
Close #2
End Sub

Помогите пожалуйста,найдите ошибку,или как то дополните.