Private Sub ButtonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonTraducir.Click
        If String.IsNullOrWhiteSpace(TextBoxTexto.Text) Then
            MessageBox.Show("Introduce Texto a Traducir", "Información", MessageBoxButtons.OK)
            TextBoxTexto.Focus()
        ElseIf (RadioButtonEs.Checked And ComboBoxIdioma.SelectedIndex = 1) Or (RadioButtonIn.Checked And ComboBoxIdioma.SelectedIndex = 0) Then
            MessageBox.Show("No Se pueden hacer traducciones porque ha seleccionado mismo idioma de entrada y de salida", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            If ComboBoxIdioma.SelectedIndex = 1 Then
                TextBoxTraducción.Text = traducir(dicEsp, dicIng, TextBoxTexto.Text)
            End If
        End If
    End Sub


    Private Function traducir(diccionario1 As String(), diccionario2 As String(), frase As String) As String
        Dim palabra As String = ""
        Dim traduccion As String = ""
        Dim posicion As Integer = 0
        Dim letra As String = ""

        While posicion < frase.Length
            letra = frase(posicion)
            While frase(posicion) <> " " Or frase(posicion) <> "," Or frase(posicion) <> "."
                letra = frase(posicion)
                palabra = palabra & letra
            End While
            If palabra <> "" Then
                Dim a As Integer
                a = buscar(palabra, diccionario1)
                If a >= 0 Then
                    traduccion = traduccion & diccionario2(a)
                    traduccion = traduccion & letra
                    palabra = ""
                End If

            End If

            posicion += 1
        End While

        Return traduccion


    End Function



Private Function buscar(palabra As String, diccionario As String()) As Integer
        Dim posicion As Integer = -1

        For i As Integer = 0 To diccionario.Length - 1
            If palabra = diccionario(i) Then
                posicion = i
                Return posicion
            End If
        Next
        Return posicion
    End Function