问一个十进制转36进制后用0～9和a~z的表示的函数

Function base10_to_base36(L As Long) As String
Dim h As String
Dim hex As String
Dim d As Long
    h = "0123456789abcdefghijklmnopqrstuvwxyz"
    hex = ""
    Do
     d = L Mod 36
     hex = Mid(h, 1 + d, 1) + hex
     L = L \ 36
     If L = 0 Then Exit Do
    Loop
    base10_to_base36 = hex
End Function