che poi mi accorgo ora che sarebbe meglio fare così se vuoi contare le lettere e soltanto quelle:

codice:
MsgBox(Len(Replace(Me.Text1.Text, " ", "")))