nLettere=len(TexTBox.Text)

verifica se conta anche gli spazi... in caso fai così: nLettere=Len(Trim(TexTBox.Text))