Like it? Click in Thanks!Code:'------------------- 'Functions to Convert String to Hex / Hex to String 'usdlcoder@gmail.com '------------------- Private Function EnHex(Data As String) As String Dim iCount As Double, sTemp As String Reset For iCount = 1 To Len(Data) sTemp = Hex$(Asc(Mid$(Data, iCount, 1))) If Len(sTemp) < 2 Then sTemp = "0" & sTemp Append sTemp Next EnHex = GData Reset End Function Private Function DeHex(Data As String) As String Dim iCount As Double Reset For iCount = 1 To Len(Data) Step 2 Append Chr$(Val("&H" & Mid$(Data, iCount, 2))) Next DeHex = GData Reset End Function