แลกเปลี่ยน code อยากได้ แปลงฐาน 64 ช่วยแนะนำหน่อยได้ไหม

Public Function a2hex(alpha, length)
    hextemplate = "0123456789ABCDEF"
    alpha = Right("00000000" & UCase(alpha), length)
    If Len(alpha) = 2 Then
        ahindex = InStr(1, hextemplate, Left(alpha, 1)) - 1
        alindex = InStr(1, hextemplate, Right(alpha, 1)) - 1
        a2hex = (ahindex * (16 ^ 1)) + (alindex * (16 ^ 0))
        ElseIf Len(alpha) = 4 Then
            lb = Left(alpha, 2)
            hb = Right(alpha, 2)
            hx = a2hex(hb, 2) * (16 ^ 2) + a2hex(lb, 2)
            a2hex = hx
        ElseIf Len(alpha) = 8 Then
            aH = a2hex(Right(alpha, 4), 4)
            aL = a2hex(Left(alpha, 4), 4)
            a2hex = (aH * (16 ^ 4)) + aL
    End If
End Function