Private Sub Command1_Click()
   Dim Lineas() As String
    Dim i As Integer, NumLinea As Integer
    Lineas = Split(Text1.Text, vbNewLine) 'obtiene un array (matriz). Tantos elementos como saltos de línea en Text1
    Text1.Text = "" 'Limpia el Text1
    NumLinea =0
    'Bucle que repite tantas veces como líneas haya en Text1 (elementos de array Lineas)
    For i = LBound(Lineas) To UBound(Lineas)
    NumLinea = NumLinea + 1 'Obtiene el númer de línea empezando desde 1
    If NumLinea = 4 Then NumLinea = 1 'Vuelve a empezar desde 1 si NumLinea = 4
    'Reescribe cada línea en el Text1 añadiendo el número de línea
        If Lineas(i) <> "" Then Text1.Text = Text1.Text & NumLinea & Lineas(i) & vbCrLf 
    Next
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
For N = 1 To 6
Text1.Text = Text1.Text & "Texto" & vbCrLf
Next N
End Sub