[VB] Unicode

VB Code:

'convert to UTF-16
            For A = 1 To Len(Temp) Step 2
                Text = Text & ChrW(Asc(Mid$(Temp, A, 1)) + Asc(Mid$(Temp, A + 1, 1)) * 256)
            Next A

Yup. If someone knows a better way, you'll become my hero. I want to make optimal code for the class module I'm working with, and this is the weakest code there atm.

Write a DLL in C. VB's strings are UTF-16 internally, but accessing them that way...


You could try a fixed length string (length = Len(Temp) / 2), and the CopyMemory API call. Quite risky though.