Try the following.
Imports System.Text
Public Class Converters
Public Shared Function ToHexString(sender As String) As String
Dim sb = New StringBuilder()
Dim bytes = Encoding.Unicode.GetBytes(sender)
For Each currentByte In bytes
sb.Append(currentByte.ToString("X2"))
Next
Return sb.ToString()
End Function
Public Shared Function FromHexString(sender As String) As String
Dim bytes = New Byte((sender.Length \ 2) - 1) {}
For index = 0 To bytes.Length - 1
bytes(index) = Convert.ToByte(sender.Substring(index * 2, 2), 16)
Next
Return Encoding.Unicode.GetString(bytes)
End Function
End Class
Test
Dim value = ""
Dim hexValue = ""
Dim list = new List(Of String) From {"Hello world", "This is a test", "123"}
For Each item As String In list
hexValue = Converters.ToHexString(item)
value = Converters.FromHexString(hexValue)
Debug.WriteLine($"{hexValue} -> {value}")
Next