Public Class Form1
    Dim sentence() As String = IO.File.ReadAllLines("Dictionary.txt")
    Private Sub btnTranslate_Click(sender As Object, e As EventArgs) Handles btnTranslate.Click
        Dim english(sentence.Length - 1) As String
        Dim french(sentence.Length - 1) As String
        Dim german(sentence.Length - 1) As String
        Dim input As String = txtenglish.Text
        Dim searchdata() As String
        Dim data() As String


        For field As Integer = 0 To sentence.Length - 1
            data = sentence(field).Split(","c)
            english(field) = data(0)
            french(field) = data(1)
            german(field) = data(2)
        Next

        Dim frenchtext As String = ""
        Dim germantext As String = ""
        searchdata = txtenglish.Text.Split(" "c)
        For i As Integer = 0 To searchdata.Length - 1
            txtfrench.Text = txtenglish.Text
            For j As Integer = 0 To english.Length - 1
                If english(j) = searchdata(i).ToUpper() Then
                    frenchtext += french(j) + " "
                    germantext += german(j) + " "

                End If
            Next
        Next
        txtfrench.Text = frenchtext
        txtgerman.Text = germantext
    End Sub


End Class