convert c++ to vba

[Felga]

can anyone help me convert this code to vba ? zenit polar

char[] zenit = { 'z', 'e', 'n','i','t' };
char[] polar = { 'p', 'o', 'l', 'a', 'r' };

Console.WriteLine("Digite uma frase para ser Criptografada (zenit polar):");
string txt = Console.ReadLine();
txt = txt.ToLower();
char[] letra = txt.ToCharArray();


Console.WriteLine("Sua frase criptografada fica: ");


for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}


Console.WriteLine("\n" + "Sua frase Descriptografada: ");
for (int i = 0; i < txt.Length; i++)
{
for (int x = 0; x < zenit.Length; x++)
{
if (letra == zenit[x])
letra = polar[x];
else if (letra == polar[x])
letra = zenit[x];
}
Console.Write(letra);
}
Console.ReadKey();

 

[GWteB]

Hi @Felga, welcome to MrExcel.

How about ...

Sub ZenitPolar()

    Dim arrZenit    As Variant
    Dim arrPolar    As Variant
    Dim arrLetra()  As String
    Dim sInput      As String
    Dim sOutput     As String
    Dim i           As Long
    Dim x           As Long
    Dim a           As Long

    arrZenit = Array("z", "e", "n", "i", "t")
    arrPolar = Array("p", "o", "l", "a", "r")

    sInput = Application.InputBox("Digite uma frase para ser Criptografada (zenit polar):", Type:=2)

    arrLetra = Split(StrConv(sInput, vbUnicode), Chr$(0))
    ReDim Preserve arrLetra(UBound(arrLetra) - 1)

    If Len(sInput) >= 1 Then
        For a = 1 To 2
            For i = 0 To Len(sInput) - 1
                For x = 0 To UBound(arrZenit)
                    If arrLetra(i) = arrZenit(x) Then
                        arrLetra(i) = arrPolar(x)
                    ElseIf arrLetra(i) = arrPolar(x) Then
                        arrLetra(i) = arrZenit(x)
                    End If
                Next x
            Next i
            If a = 1 Then
                MsgBox "Sua frase criptografada fica:" & vbNewLine & Join(arrLetra, "")
            Else
                MsgBox "Sua frase Descriptografada:" & vbNewLine & Join(arrLetra, "")
            End If
        Next a
    End If
End Sub