Simple usage:
Code:
StringToHex("This is some text")
Function:
Code:
Private Function StringToHex(ByVal text As String) As String
        Dim hex As String = String.Empty
        For i As Integer = 0 To text.Length - 1
            hex &= Asc(text.Substring(i, 1)).ToString("x").ToUpper
         Next
        Return hex
End Function