> 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 >Hex is a VB function I think. With .Net there should be several ways. ie:
Dim lcString As String = "" Dim lnCounter As Integer = 0 dim bytes as Byte() = Encoding.ASCII.GetBytes( tcString ) For lnCounter = 1 To tcString.Length lcString = lcString + String.Format( "{0:X}",bytes(lnCounter) ) Next Return lcStringCetin