Visual Basic - keyascii

Me gustaria saber si es posible pasarle a la funcion asc como valor el contenido de un text box
es decir en vez de numero=asc("a") sustituir la "a" por un textbox.Ya lo he intentado con
numero=asc(text1.text)pero da un error.Gracias

Recuerda que la función ASC solo sirve para caracteres. Si deseas hacer esto para una cadena, necesitas hacerlo a mano ( o sea tú mismo ), podría ser algo como esto

Cadena <----- En tu caso sería Text1.Text
a <----- Arreglo de enteros ( suponiendo de 255 de longitud )

For Temp = 1 to Length( Cadena )
a(Temp) = Asc( Cadena(Temp) )
Next Temp

Lo único que esto hace es tomar el valor ascii de cada letra de la cadena y lo almacena en un arreglo de enteros