ASC & CHR converter v1.0.vbs

'Filename: "ASC & CHR converter v1.0.vbs"
'Writer: t0nsha @ 071028 winxpsp2 passed the test!
'Email: tunhsiaatgmail.com
'Blog: http://blog.csdn.net/t0nsha/
On Error resume next
Function ASCII (ARG)
If (isnumeric (ARG) then
ASCII = CHR (ARG)
Else
ASCII = ASC (ARG)
End if
End Function
Do
Arg = inputbox ("Instructions for use:" & vbcrlf & "Enter the characters for the ASC code, enter the ASC code for the characters, and enter the numbers for the ASC code (for example: enter 97 for A, 97 for A, and 57 for ASC Code 9 for 9A). Only single character conversion is allowed. "," ASC & CHR converter V1.0 ")
If not isempty (ARG) Then msgbox (ARG & "is converted to:" & ASCII (ARG ))
Loop until isempty (ARG)