' convert a positive number to any base' BASE can be in the range 2-36Function Dec2Any(ByVal number As Long, ByVal base As Short) As String    Dim index As Integer    Dim digitValue As Integer    Dim res As New System.Text.StringBuilder()    Const digits As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"    ' check base and value    If number < 0 Then        Throw New ArgumentException _            ("The value to be converted must be positive")    ElseIf base < 2 Or base > 36 Then        Throw New ArgumentException("Base must be in range 2-36")    End If    ' convert to the other base    Do While number        digitValue = number Mod base        number = number  base        ' append this digit in front of current result        res.Insert(0, digits.Chars(digitValue))    Loop    Return res.ToStringEnd Function