Calcul sur base autre que 10

Function BaseN(n&, b%)
Dim carbase As String
     If n >= 0 And b > 1 Then
     carbase = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
         Do
             BaseN = Mid(carbase, 1 + (n Mod b), 1) & BaseN
             n = (n - n Mod b) \ b
         Loop While n
     Else
         BaseN = ""
     End If
 End Function

Function base(b, n)
  Do While n >= b
    result = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0, (n Mod b) + 1, 1), 1) & result
    n = n \ b
  Loop
  base = Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", IIf(n Mod b > 0, (n Mod b) + 1, 1), 1) & result
End Function

Function baseNDec(b, n)
   temp = 0
   For i = Len(n) To 1 Step -1
     temp = temp + (InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Mid(n, i, 1)) - 1) * b ^ (Len(n) - i)
   Next i
   baseNDec = temp
End Function