first of all put the letter in for loop, something like for i = len(InPut) to 1 step -1 then use RIGHT function to extract the last letter use if statement, if letter = 1 then "One" -- I think u can use REPLACE function as well concatenate and accumulate it in a output variable next i I don't really know VB that well, but giving you a logic. THere could be tons of other logic to accomplish this. Goodluck