texbox multilinea

[pkj]

¿Puedes usar un RichTextBox?

Con este código consigues lo que quieres:

Código :

Private Sub RichTextBox1_Change()
  If RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) > 4 Then
    SendKeys "{BS}"
  End If
End Sub
 

Saludos