Visual Basic - ascii en textbox

hola amigos, necesito saber la cantidad de letras, numeros o espacios, esto para poder saber la cantidad de caracteres en un textbox, puse esto:

cantidad = Len(text1.Text) esto para saber la cantidad y me funciona bien

entonces, necesito hacer que cada caracter que se meta, incluyendo espacio en blanco, saber el cogico ascii, para poder sumarlos y dividirlos por el mismo numero de caracteres y el resultado lo quiero guardar en una base de datos de access.

como le podria hacer? que me recomiendan.. esto lo quiero hacer para que cuando meta un nombre en el textbox y le de clic en guardar, automaticamente le asigne un numero de sucursal al nombre que meti guiandome de sus codigos ascii que seria sumando sus numeros ascii de cada caracter, dividiendo el resultado de la suma por la cantidad de caracteres y el resultado mandarlo a la base de datos.


gracias

ya supe como, ahora me surgio otra duda.

asi hice el codigo y me resulto bien pero..

cantidad = Len(txt_nom_suc.Text)
For indice = 1 To cantidad
suma = suma + Asc(Mid(txt_nom_suc.Text, indice, 1))
Next
resultado = suma / cantidad
Label17 = resultado

como le puedo hacer para que me guarde el resultado en el campo de una tabla de access pero apartir del registo numero 2 hacia adelante y que el primero que ya tengo no me lo modifique?? uso un control data para la conexion con la base de datos.

muchas gracias