Same function and little bit easier:
Imports System.Runtime.Remoting.Metadata.W3cXsd2001
Class Converter
Public Shared Function ConvertToUTF16(ByVal str As String) As String
Return New SoapHexBinary(System.Text.Encoding.BigEndianUnicode.GetBytes(str)).ToString
End Function
End Class