I'm using this to convert a string to ascii;
Public Function asciien(s As String) As String' Returns the string to its respective ascii numbers
Dim i As Integer
For i = 1 To Len(s)
asciien = asciien & CStr(Asc(Mid(s, i, 1)))
Next i
End Function
Can someone show me how to...