Запись строк в файл - VB

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

Дан файл.Записать в другой файл только те строки,которые начинаются с заданной буквы.

Решение задачи: «Запись строк в файл»

textual
                            Листинг программы 
                        
 
                            
                        
Open "TESTFILE" For Input As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Binary только для записи.
 
Open "TESTFILE" For Binary Access Write As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Random.  Файл содержит записи определенного пользователем типа Record.
 
Type Record ' Тип, определенный пользователем.
    ID As Integer
    Name As String * 20
End Type
 
Dim MyRecord As Record  ' Объявляет переменную.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл для последовательного вывода; любой процесс может читать из этого файла или записывать в него.
 
Open "TESTFILE" For Output Shared As #1
' Закрывает файл перед повторным открытием в другом режиме.
Close #1
 
Следующие инструкции открывают файл в режиме Binary для чтения; другие процессы не могут читать этот файл.
 
Open "TESTFILE" For Binary Access Read Lock Read As #1