scusate i vari reply.

ho pure provato con questa funzione e richiamandola dall'evento _Change della TextBox
ma il tutto funziona solo se l'utente digita all'interno della casella di testo


Public Function TestoACapo()


Dim TestoAttuale As String

TestoAttuale = Text2.Text


If Len(Text2.Text) = MaxLenght Then

MaxLenght = MaxLenght + 12

Text2.Text = TestoAttuale & vbCrLf
Text2.SelStart = Len(Text2.Text)


End If


End Function