QTP Script to return ASCII value of a given character-script in qtp to return the ANSI character code corresponding to given character-Asc function

Dim a

a=Asc("A")

msgbox a


Output-65



Dim a

a=Asc("a")

msgbox a


Output-97