Dim str
str = "102090IL1"
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
next
str = "102090IL1"
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
next