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

Imports System.IO
Public Class Form1
    Dim ff, word, answer As String
    Dim str(50) As String
    Dim n As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim file = New StreamReader("inp.txt")
        n = 0
        Do While (file.Peek <> -1)
            str(n) = file.ReadLine()
            n += 1
        Loop
        For i = 0 To n - 1
            RichTextBox1.Text += str(i) + vbCrLf
 
        Next
        file.Close()
    End Sub
 
    Private Sub УсловияЗадачиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УсловияЗадачиToolStripMenuItem.Click
        MsgBox(" Дан файл, состоящий из строк, которые могут начинаться либо с русских, либо с английских слов. Записать в другой файл только те строки, которые начинаются с русских слов. ")
 
    End Sub
 
    Private Sub АвторToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles АвторToolStripMenuItem.Click
        MsgBox(" Семенова Ольга МиИ-3 ")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox2.Clear()
        Dim file = New StreamWriter("out.txt")
        For i = 0 To n - 1
            If InStr("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя", Mid(str(i), 1, 1)) <> 0 Then
                file.WriteLine(str(i))
                RichTextBox2.Text += str(i) + vbCrLf
 
            End If
        Next
        file.Close()
    End Sub
End Class