- '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.