dim a as integertext2.text=""for a=1 to len(text1.text) text2.text=text2.text & asc(mid(text1.text,a,1)) & ""next a