Public Class Form1
    Dim WordsFile As IO.StreamReader = IO.File.OpenText("C:\Temp\Words.txt")

    Dim American(11) As String
    Dim English(11) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim Ans As String

        TextBox2.Clear()
        Ans = TextBox1.Text.ToLower
        Do While (American(x) <> Ans) And (x < American.GetUpperBound(0))
            x = x + 1
        Loop
        If American(x) = Ans Then
            TextBox2.Text = English(x)
        Else
            TextBox2.Text = "Not Found"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim x As Integer
        For x = 0 To 10
            American(x) = WordsFile.ReadLine
            English(x) = WordsFile.ReadLine
        Next x
    End Sub
End Class