Public Function Str2Hex(ByVal strData As String) Dim i As Long, CryptString As String, tmpAppend As String On Local Error Resume Next For i = 1 To Len(strData) tmpAppend = Hex$(Asc(Mid$(strData, i, 1))) If Len(tmpAppend) = 1 Then tmpAppend = Trim$(Str$(0)) & tmpAppend CryptString = CryptString & tmpAppend: DoEvents Next i Str2Hex = CryptString End Function