you dont need the goto or a while loop you can just do

msg # $+($chr(36),chr,$chr(40),$asc( $2 ),$chr(41))

also on the !$2 part maybe have it msg back $chr(32) for space