Dim frase, result, vetorA(200), vetorB(5) As String
Dim tamanho, cont As Integer

Public Sub Traduzir()
    Dim frase As String

    frase = "problemas hiper-interessantes."

    textoCodificado = Codificar(frase)


End Sub

Private Function Codificar(ByVal frase As String) As String
    Dim fraseFinal As String
    Dim fraseFinalDeVerdade As String
    Dim vetorFraseInicial(200) As String
    Dim vetorFraseFinal(200) As String
    Dim p1 As String
    Dim p2 As String

    For i = 0 To Len(frase)
        vetorFraseInicial(i) = Mid(frase, i + 1, 1)
    Next

    For i = 0 To Len(frase)
        Dim letra, proximaLetra As String

        letra = Mid(frase, i + 1, 1)
        proximaLetra = Mid(frase, i + 2, 1)

        If EhConsoante(letra) And EhConsoante(proximaLetra) Then
            fraseFinal = fraseFinal & vetorFraseInicial(i + 2)


            p1 = vetorFraseInicial(i)
            p2 = vetorFraseInicial(i + 1)

            vetorFraseInicial(i) = p2
            vetorFraseInicial(i + 1) = p1

        Else
            fraseFinal = fraseFinal & vetorFraseInicial(i)
        End If
    Next

    fraseFinal = Join(vetorFraseInicial, "")

    For i = 0 To Len(fraseFinal)
        vetorFraseFinal(i) = Mid(fraseFinal, i + 1, 1)
    Next

    For i = 0 To Len(fraseFinal)
        letra = Mid(fraseFinal, i + 1, 1)

        If letra = " " Then
            p1 = vetorFraseFinal(i)
            p2 = vetorFraseFinal(i + 1)

            vetorFraseFinal(i) = p2
            vetorFraseFinal(i + 1) = p1

        End If
    Next

    fraseFinalDeVerdade = Join(vetorFraseFinal, "")

    Codificar = fraseFinalDeVerdade

End Function

Private Function EhVogal(ByVal letra As String) As Boolean
    If letra = "a" Or letra = "e" Or letra = "i" Or letra = "o" Or letra = "u" Then
        EhVogal = True
    Else
        EhVogal = False
    End If

End Function

Private Function EhConsoante(ByVal letra As String) As Boolean
    EhConsoante = Not EhVogal(letra)

End Function

'codigo ana beatriz
'result = ""
    'frase = Plan1.Range("a2").Value
    'tamanho = Len(frase)

    'For i = 1 To tamanho
        'vetorA(i) = Mid(frase, i, 1)
    'Next

    'For i = tamanho To 1 Step -1
        'For j = 1 To tamanho
        'If vetorA(j) = "a" And vetorA(j) = "e" And vetorA(j) = "i" And vetorA(j) = "o" And vetorA(j) = "u" Then
         '   vetorA(j) = vetorA(j)
        'Else
            'vetorA(j) = Mid(frase, i, 1)
        'End If
        'result = result & vetorA(i)
        'Next
    'Next

    'Plan1.Range("a4").Value = result