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