Function concatToASCII(ByVal strInput As String) As String
Dim l As Long
Dim tmpStr As String
 
tmpStr = ""
For l = 1 To Len(strInput)
  tmpStr = tmpStr + CStr(Asc(Mid$(strInput, l, 1)))
Next l
concatToASCII = tmpStr
 
End Function