Private Function StringToHexadecimal(ByVal tcString As String) As String Dim lcString As String = "" Dim lnCounter As Integer = 0 For lnCounter = 1 To tcString.Length lcString = lcString + Hex(Asc(Mid(tcString, lnCounter, 1))) Next Return lcString End Function