ASCIIConvert

Public Function ASCIIConvert(SourceString As String) As String
Dim CurChr As String
ASCIIConvert=""
For i = 1 To Len(SourceString)
CurChr$ = Mid(SourceString, i, i + 1)
ASCIIConvert = ASCIIConvert & " & Chr(" & Asc(CurChr$) & ")"
Next i
ASCIIConvert = Right(ASCIIConvert, Len(ASCIIConvert) - 3)
End Function