La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  646 - LIMITAR EL NUMERO DE CARACTERES POR LINEA EN UN TEXTBOX
Autor:  Ramón
Necesito limitar el número de carácteres por línea y el número de líneas de la textbox a 132 carácteres y 60 lineas y luego leer linea por linea. No encuentro la manera de hacerlo bien he probado lo siguiente lo cual es una chapuza y no va muy bien:
Private Sub Text1_Change()
Dim NúmeroLineas As Long
Dim NúmeroCarácteres As Long
Dim N As Long
NúmeroCarácteres = Len(Text1.Text)
For N = 1 To 60
If NúmeroCarácteres = N * 132 Then
SendKeys "{ENTER}"
NúmeroLineas = NúmeroLineas + 1
End If
Next N
End Sub
Espero que se me pueda ayudar. Gracias y Buenas Fiestas!
  Respuesta:  Ismael
Prueba en el evento Keypress.
Por cada tecla diferente de "del" y "backspace" incrementa la longitud de línea. Al llegar a 132 imprime el caracter 13 y sumas uno a las líneas.
Compara si ya son 60 y no permitas otra tecla.