Function charASCIIcode(ByVal s) 
    charASCIIcode = (Asc(s))
End Function