求個很簡單的函數,该怎么解决

求個很簡單的函數
要求根據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)