VB Code:
  1. 'convert to UTF-16

  2.             For A = 1 To Len(Temp) Step 2

  3.                 Text = Text & ChrW(Asc(Mid$(Temp, A, 1)) + Asc(Mid$(Temp, A + 1, 1)) * 256)

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