求很的函
要求根Text里的容返回；
例如：
Text1.text = "a " 函返回1
Text1.text = "b " 函返回2
Text1.text = "c " 函返回3
Text1.text = "d " 函返回4


[解决办法]
Function ASCOUT( byval S as string) as integer
ASCOUT= Asc(S) - 96
end Function

调用:
msgbox ASCOUT(text1.text)