Function fBase36Encode(ByRef lngNumToConvert As Long) As String
'Будет конвертировать любое целое положительное число в base36, а как сделать наоборот?
Dim strAlphabet As String
 
strAlphabet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
If lngNumToConvert = 0 Then
  Base36Encode = "0"
    Exit Function
End If
 
fBase36Encode = vbNullString
 
Do While lngNumToConvert <> 0
  fBase36Encode = Mid(strAlphabet, lngNumToConvert Mod 36 + 1, 1) & fBase36Encode
    lngNumToConvert = lngNumToConvert \ 36
Loop
End Function