myCharacters=Array("~","!","@","#","$","%","^","&","*","(",")")
For Each character In myCharacters
    WScript.Echo character & " --> " & Asc(character)
Next