Работа с файлом.Команда Asc и Chr.VB6

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

Добрый вечер всем.Заранее благодарен всем за внимание. К делу,имею задачу :Текстовый файл А содержит текст с русскими и латинскими буквами. Создать новый файл В, котором из этого текста будут удалены русские буквы. Потратив сегодняшний на попытку разобраться и написать код,потерпел фиаско. Суть проблемы:Я не могу разобраться до конца с работой Asc. Для теста я решил написать прогу для строки из 12 символов,обработав которую он выводил бы результат сразу в программу.Но....Прога обрабатывает только первый символ строчки.Я пытался сделать это через массив.Пытался присвоить каждому символу по строке,чтобы добиться хоть какого-то результата.пытался работать с char-ом прицип работы,которого я так и не понял,потому что на любое его появление Vb выдавал ошибку.Поэтому обращаюсь к вам за помощью и советом. "

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim S(11), V As String
Dim T As String
Dim F As Long
 
F = FreeFile
 
Open "C:\Test\Test.txt" For Input As #F
Do Until EOF(F)
Line Input #F, T
Loop
Close #F
For i = 0 To 11
V = Mid(T, i + 1, 1)
Char = Asc(V)
If Char <= 100 Then
Print V
End If
Next i
End Sub"

Решение задачи: «Работа с файлом.Команда Asc и Chr.VB6»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim A1 As String, B1 As String, S As Integer, i As Integer, k1 As Integer, k2 As Integer
k1 = FreeFile
Open "A.txt" For Input As k1
k2 = FreeFile
Open "B.txt" For Output As k2
Do While Not EOF(k1)
    Line Input #k1, A1
    B1 = ""
    For i = 1 To Len(A1)
        S = Asc(Mid(A1, i, 1))
        If (S >= 192 And S <= 255) Or S = 168 Or S = 184 Then
            B1 = B1 & Chr(S)
        End If
    Next i
    Print #k2, B1
Loop
End Sub