UDF BaseConverter Function

'Converts to base almost anything. Uses upper and lower case
'#VBA, #UDF, #CustomFunction

Function BaseConvert(number As Double, baseLevel As Long) As String
Dim remainder As Long

Do While number > 0

    'finds remainder which displays to the right of the existing string
    remainder = number Mod baseLevel

    'divides by base until value = 0 (rounds down)
    number = VBA.Int(number / baseLevel)


    If remainder < 10 Then
        'regular 0-9 format
        BaseConvert = remainder & BaseConvert

    ElseIf remainder < 36 Then
        'upper case letters
        BaseConvert = Chr(remainder + 55) & BaseConvert

    ElseIf remainder < 63 Then
        'lower case letters
        BaseConvert = Chr(remainder + 61) & BaseConvert

    Else
        'uses asci code for anything bigger
        BaseConvert = Chr(remainder + 60) & BaseConvert

    End If

Loop    'repeats until number = 0

End Function