Public Class frmTranslator

    Structure translation
        Dim english As String
        Dim textese As String
    End Structure

    Dim translate() As translation

    Private Sub frmTranslate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Dist() As String = IO.File.ReadAllLines("Textese.txt")
        Dim n As Integer = Dist.Count - 1
        ReDim translate(n)
        Dim line As String
        Dim languages(1) As String

        For i As Integer = 0 To n
            line = Dist(i)
            languages = line.Split(","c)
            translate(i).english = languages(0)
            translate(i).textese = languages(1)
        Next


    End Sub

    Private Sub btnTranslate_Click(sender As Object, e As EventArgs) Handles btnTranslate.Click
        Dim phrase() As String = txtEnglish.Text.Split(" "c)
        Dim textesePhrase(phrase.Count - 1) As String
        txtTextese.Clear()
        Dim count As Integer = phrase.Count - 1

        For i As Integer = 0 To count
            For j As Integer = 0 To translate.Length - 1
                If phrase(i) = translate(j).english Then
                    textesePhrase(i) = translate(j).textese
                Else
                    textesePhrase(i) = phrase(i)
                End If
            Next

        Next

        txtTextese.Text = String.Join(" ", textesePhrase)

    End Sub

End Class