Записать в файл только те строки, которые начинаются с русских слов.

Private Sub Main() 'Запусти эту процедуру !
    Dim s$, Rus, Eng, f&, fileR$, fileE$, lst$()
    fileR = "C:\Test_Rus.txt"
    fileE = "C:\Test_Eng.txt"
    '----------
    s = "Primer Пример Example Тэст!"
    lst = Split(s)
    For f = 0 To UBound(lst)
        Select Case Mid$(lst(f), 1, 1)
        Case "А" To "я"
            Rus = Rus & vbCrLf & lst(f)
        Case Else '"A" To "z"
            Eng = Eng & vbCrLf & lst(f)
        End Select
    Next
    CreateObject("Scripting.FileSystemObject").CreateTextFile(fileR).Write (Mid(Rus, 3))
    CreateObject("Scripting.FileSystemObject").CreateTextFile(fileE).Write (Mid(Eng, 3))
    '----------------
    MsgBox ("Открой путь C:\" & vbCrLf & _
    "Найди там Test_Rus и Test_Eng")
End Sub

Private Sub Command1_Click()
On Error Resume Next ' игнорируем ошибку, если пустая строка
Dim a As String
Open ("C:\1.txt") For Input As #1 ' Первый это файл со строками
Open ("C:\2.txt") For Output As #2 ' Второй это выходной только с русским текстом
Do Until EOF(1)                    ' Читаем, пока строки не кончатся
Line Input #1, a
If Len(a) >= 1 Then             ' Убеждаемся, что не пустая строка
a = Trim(a)                     ' Убираем пробелы
  If Asc(Left(a, 1)) > 122 Then ' Английские по заданию не нужны!
     Print #2, a                ' Русские буквы имеют ASCII>122, их пишем в файл
  End If
End If
Loop
Close #1
Close #2
 
End Sub

Private Sub Main() 'Запусти эту процедуру !
    Dim s$, Rus$, Eng$, f&, fileR$, fileE$, fileA$, lst$(), o As New FileSystemObject
    fileR = "C:\Test_Rus.txt" '
                                      '- Текстовые файлы для записи
    fileE = "C:\Test_Eng.txt" '
    
    fileA = "C:\Test_Any.txt" 'Ваш текстовый файл для чтения
    '----------
    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(fileA) Then ' Если Test_Any не найден создаём его 1 раз !
            s = "Пример руской строки" & vbCrLf & _
            "An example of the English line" & vbCrLf & _
            "Hello Piples !" & vbCrLf & _
            "Привет пиплы :)"
            .CreateTextFile(fileA).Write (s)
        End If
    
        s = .OpenTextFile(fileA).ReadAll 'Чтение файла
        lst = Split(s, vbCrLf)
        For f = 0 To UBound(lst)
            Select Case Mid$(lst(f), 1, 1)
            Case "А" To "я"
                Rus = Rus & vbCrLf & lst(f)
            Case Else '"A" To "z"
                Eng = Eng & vbCrLf & lst(f)
            End Select
        Next
        .CreateTextFile(fileR).Write (Mid(Rus, 3)) 'Запись строк Rus
        .CreateTextFile(fileE).Write (Mid(Eng, 3)) 'Запись строк Eng
    End With
    '----------------
    MsgBox ("Открой путь C:\" & vbCrLf & _
    "Найди там Test_Rus и Test_Eng")
End Sub