Dear sir,
I am getting some port input in ASCII form, and wanted to convert it in HEX form, I have used following code
'\\\\\\\\\\\\\\\\\\\\\\\\\//////////////////////////////////////////
For A = 1 To Len(sText)
HexIt = HexIt & Hex$(Asc(Mid(sText, A, 1))) & Space$(1)
On Error Resume Next
DoEvents
Next A
HexIt = Mid$(HexIt, 1, Len(HexIt) - 1)
'\\\\\\\\\\\\\\\\\\\\\\\\\//////////////////////////////////////////
but some time it gives me wrong value in HEX. please suggest any other code..