newstring$ ="" for n=1 to len(playername) c$ = lower(mid(playername,n,1)) if c = "m" then newstring=newstring + "2" if c = "o" then newstring=newstring + "6" etc next
or better still
Dim Convert(26) convert(1) = 5 ; A = 5 convert(2) = 10 ; B=6 etc ; Probably best as a data statement newstring$ ="" for n=1 to len(playername) newstring = newstring + convert( asc(upper(mid(playername,n,1))) - 64) next
Note... Totally untested.. Might have to make newstring=" " to force it to be a string first then chop off the first character.