String Functions VisualBasic Script

Sub strDemo17()
   Debug.Print Asc("A")
End Sub