Visual Basic - saber 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

No es tan dificil

solo le pones un len a la cadena de caracteres y uno a uno los vas sumando , lo tenes que hacer en un bucle y una vez sumado todo lo dividis por el len que era la cantidad de caracteres.

espero que lo hayais entendido y si no es asi pos me envias un mail y te lo aclaro

total = 0
For x = 1 To Len(text1.Text)
a = Mid(text1.Text, x, 1)
num_ascii = Asc(a)
total = total + num_ascii
Next

label1 = total

saludos

gracias por sus respuestas, juan carlos ese codigo que me pones, no hace la division entre el numero de caracteres escritos verdad??

solo tienes que modificar esta linea del codigo que te pusieron

Label1 = total / Len(Text1)

puse asi el codigo

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

me funciona bien, pero cuando le doy clic a nuevo para llenar de nuevo los campos, este no lo lleno por que se genera automaticamente, pero cuando le doy nuevo me marca error de desbordamiento aqui: resultado = suma / cantidad

me marca error el codigo, me dice que no coinciden los tipos en a = Mid(text1.Text, x, 1)

tengo mi codigo asi:

total = 0
total = Len(text1.Text)
For x = 1 To Len(text1.Text)
a = Mid(text1.Text, x, 1)
num_ascii = Asc(a)
total = total + num_ascii
Next

label1 = total

que esta bien o que esta mal?'

otra cosa, como le puedo hacer para que este codigo:

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

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