Function base36encode(number As UInteger) As String
     Dim alphabet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     If number = 0 Then return "0"
     Dim As String res_b36 = ""
     While number > 0
         res_b36 = Mid(alphabet, number Mod 36 + 1, 1) & res_b36
         number = number \ 36
     wend
     return res_b36
End Function

Function base36decode(ByRef base36 As String) As UInteger
    Dim alphabet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim As UInteger num_b36 = 0
    num_b36 = InStr(1, alphabet, Right(base36, 1)) - 1
    For i As integer = Len(base36) - 1 To 1 Step -1
         num_b36 = num_b36 + 36 ^ (Len(base36) - i) * (InStr(1, alphabet, Mid(base36, i, 1)) - 1)
    Next i
    Return num_b36
End Function

Dim As UInteger snum = 125175458
Dim As string sint36 = base36encode(snum)
Print sint36
Print base36decode(slong36)
sleep