求個很簡單的函數

Question

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

Answer 1

Function ASCOUT( byval S as string) as integer
ASCOUT= Asc(S) - 96
end Function调用: 
msgbox ASCOUT(text1.text)

Answer 2

呵呵，我忘记说明白了，Text里面的内容没规律
Text1.text = "hello" 函數返回1
Text1.text = "every" 函數返回2
Text1.text = "body"  函數返回3
Text1.text = "nice"  函數返回4
只是一个顺序