VBnet сделает строку в конвертер Unicode

'For single charatcter
MyUnicode = Asc(MyString)
'For multiple charatcters
MyUnicode = AscW(MyString)
Salty Joe