Asc&Chr Converter v1.0.vbs

' filename："Asc&ChrConverterv1.0.vbs"
' writer：t0nsha@071028WinXPSP2测试通过！
' Email：tunhsiaATgmail.com
' Blog:http://blog.youkuaiyun.com/t0nsha/
On Error Resume Next
Function Ascii(arg)
if ( IsNumeric (arg)) Then
Ascii = Chr (arg)
Else
Ascii = Asc (arg)
End If
EndFunction
Do
arg = InputBox ( " 使用说明： " & VbCrLf & " 输入字符求asc码，输入asc码求字符，求数字asc码请在数字后加字母（如：输入a得97，输入97得a，输入9a得9的asc码57），仅单字符转换。 " , " Asc&ChrConverterv1.0 " )
if not IsEmpty (arg) Then MsgBox (arg & " isconvertedto: " & Ascii(arg))
Loop Until IsEmpty (arg)