[Only3]

i like ur unique ideas
try to improve ur code for example charToNumber & numberToChar functions
can be that simple Asc(letter) - 64 & letter + 64
also others things can be improve

[Only3]

ok little fix should be (start) Asc(letter) - 48 & letter + 48
now for the function

Select Case Asc(letter)
Case 32 : ...
Case 48 To 57 : ...
Case 65 To 90 : ...
Case 97 To 122 : ...
End Select

[Networx]

Interesting.
Thanks for this.