Data Type Functions VisualBasic Script

Sub ascDemo()
    Dim num1 As Integer
    num1 = Asc("A")
End Sub