Base 10 to base 32

[Red via AccessMonster.com]

Hi everyone,
I was wondering if anyone knew of a code that could change a base 10 entry to
a base 32 entry? I'm not sure if its possible but curious.

VR,

Red

 

[david epsom dot com dot au]

Function base32(n As Long) As String
If n = 0 Then base32 = "0" Else base32 = base32(n \ 32) _
& IIf((n Mod 32) < 10, n Mod 32, Chr((n Mod 32) + 65 - 10))
End Function