Asc&Chr Converter v1.0.vbs

' filename："Asc&Chr Converter v1.0.vbs"
' writer：t0nsha      @071028   WinXPSP2测试通过！
' 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 ( " 使用说明： " & VbCrLf &   " 输入字符求asc码，输入asc码求字符，求数字asc码请在数字后加字母（如：输入a得97，输入97得a，输入9a得9的asc码57），仅单字符转换。 " , " Asc&Chr Converter v1.0 " )
if   not   IsEmpty (arg)  Then   MsgBox (arg  &   "  is converted to: "   & Ascii(arg))
Loop  Until  IsEmpty (arg)