Convert a string to UTF-16

' if you pass this parameter to function : "I'm from Azerbaijan."
' the return value is : 00490027006D002000660072006F006D00200041007A00650072006200610069006A0061006E002E that is Hexadecimal code points of the input string.
' UTF-16 code units is like this: 49 27 6D 20 66 72 6F 6D 20 41 7A 65 72 62 61 69 6A 61 6E 2E

Public Function ConvertToUTF16(ByVal str As String) As String
Dim ArrayOFBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(str)
        Dim UTF16 As String
        Dim v As Integer
        For v = 0 To ArrayOFBytes.Length - 1
            If v Mod 2 = 0 Then
                Dim t As Integer = ArrayOFBytes(v)
                ArrayOFBytes(v) = ArrayOFBytes(v + 1)
                ArrayOFBytes(v + 1) = t
            End If
        Next
        For v = 0 To ArrayOFBytes.Length - 1
            Dim c As String = Hex$(ArrayOFBytes(v))
            If c.Length = 1 Then
                c = "0" & c
            End If
            UTF16 = UTF16 & c
        Next

        Return UTF16
End Function