перевести JAVA в VBA

Private Sub Form_Activate()
a$ = "e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf"
b$ = "+-.0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz" ' После сортировки
' Шифр адреса
c$ = "T4mg9MMfaRpmyM1K0"
d$ = ""
For e = 1 To Len(c$)
c_charAt$ = Mid(c$, e, 1)
a_indexOf& = InStr(1, a$, c_charAt$, 0)
b_charAt$ = Mid(b$, a_indexOf&, 1)
d$ = d$ & b_charAt$
Next
 
Form1.Print d$ ' [email]abd1-ssz@kodms.ru[/email]
End Sub

Sub qwer()
    Dim a, c, email
    a = "6mQFxf29y-3VLWEzH.OSCBu5Ywd0ciPvI+gbjqZphk@JltGe_MsNr7n8TKo41aARXDU"
    c = "4oNom74WN8l74Qoa"
    MsgBox Get_email(a, c), 64, ""
End Sub
 
Function Get_email(a, c) As String
Dim b, i
b = sort(a)
For i = 1 To Len(c)
     Get_email = Get_email & Mid(b, InStr(1, a, Mid(c, i, 1)), 1)
Next i
End Function
 
Function sort(ByVal s)
Dim i, j, t, n, y
For i = 1 To Len(s) - 1
    n = i
    t = Asc(Mid(s, i, 1))
    For j = i + 1 To Len(s)
        y = Asc(Mid(s, j, 1))
        If t > y Then
            t = y
            n = j
        End If
    Next j
    If n <> i Then
        Mid(s, n, 1) = Mid(s, i, 1)
        Mid(s, i, 1) = Chr(t)
    End If
Next i
sort = s
End Function

Sub bb()
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AddCode "function eml(){var a='e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf';var b=a.split('').sort().join('');var c='T4mg9MMfaRpmyM1K0';var d='';for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));return d}"
    MsgBox .Run("eml")
  End With
End Sub