Поиск в текстовом файле

Private Программа As PostCard
Private number As Integer, i As Integer, RetInt As Integer, number1 As Integer, _
    b As Integer, y As Integer, NumberFile As Integer
 
Private Sub Выполнение_Click()
    Dim Family  As String
    Family = InputBox("Введите фамилию студента.", "Окно ввода")
    NumberFile = FreeFile
    Open "File.txt" For Random As #NumberFile
        number = 1
        Do While Not EOF(NumberFile)
            Get #NumberFile, number, Программа
            If LCase(Программа.Фамилия) = LCase(Family) Then
                MsgBox ("Номер записи: " & number)
                Exit Do
            End If
        Loop
        If EOF(NumberFile) Then
            MsgBox ("Запись не найдена")
        End If
    Close #NumberFile
End Sub
 
Private Sub Выполнить_Click()
    NumberFile = FreeFile
    Open "File.txt" For Random As #NumberFile
        number = 1
        Do
            Программа.Фамилия = InputBox("Введите фамилию студента.", "Окно ввода")
            Программа.Имя_и_отчество = InputBox("Введите имя и отчество студента.!", "Окно ввода")
            Программа.Год_установки = InputBox("Введите год установки студента.", "Окно ввода")
            Программа.номер_телефона = InputBox("Введите номер телефона студента.", "Окно ввода")
            Put #NumberFile, number, Программа
            If MsgBox("Продолжить ввод? Да или Нет?", vbYesNo, "Окно ввода") = vbYes Then
                number = number + 1
            Else
                Exit Do
            End If
        Loop
    Close #NumberFile
End Sub
 
Private Sub Выход_Click()
    End
End Sub