come posso contare i caratteri presenti in una text box?

[amodio]

[code]
dim i as long

i = len(txt_testo.text)
[code]

semplice no?