CodeItBetter Programming Another VB Programming Blog

'Math - How to Convert the number n to any base between 2 and 36
Option Explicit
 
Public Function Long2Base(ByVal n As Long, ByVal nB As Integer) As String
    Dim s As String
    Dim nD As Integer
    Dim Negative As Boolean
    Negative = n < 0
    n = Abs(n)
    Do
        nD = n Mod nB
        If nD > 9 Then
            nD = nD + 7
        End If
        s = Chr$(48 + nD) & s
        n = n \ nB
    Loop Until n = 0
    If Negative Then
        s = "-" & s
    End If
    Long2Base = s
End Function