Автономный переводчик

Public Class Form1
    Dim Rus, Eng As New List(Of String)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Slov() As String = IO.File.ReadAllLines("Test.txt", System.Text.Encoding.Default)
        For i = 0 To UBound(Slov)
            Rus.Add(Slov(i).Split("=")(0))
            Eng.Add(Slov(i).Split("=")(1))
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Введите слово") : Exit Sub
        End If
        Dim n As Integer = Asc(Strings.Left(TextBox1.Text, 1))
        If (n >= 65 And n <= 90) Or (n >= 97 And n <= 122) Then 'если начинается с латинской буквы
            Eng_Rus(TextBox1.Text)
        Else
            Rus_Eng(TextBox1.Text)
        End If
    End Sub
 
    Sub Rus_Eng(Str As String)
        For i = 0 To Rus.Count - 1
            If LCase(Str) = LCase(Rus(i)) Then ' переводим все в нижний регистр
                Label2.Text = Eng(i) : Exit Sub
            End If
        Next
        Label2.Text = "Слово не найдено"
    End Sub
 
    Sub Eng_Rus(Str As String)
        For i = 0 To Eng.Count - 1
            If LCase(Str) = LCase(Eng(i)) Then
                Label2.Text = Rus(i) : Exit Sub
            End If
        Next
        Label2.Text = "Слово не найдено"
    End Sub
End Class