dim array() as string
array = split("one two three four"," ")
For i =1 to array.lengh
if(array(i) = "one") then
result = result + "1"
else if(array(i) = "two") then
result = result + "2"
.......................................
.......................................
Next