Private Sub Text1_Change()
    Dim Zeilen As Variant
    Dim i As Long
    Static Rek As Boolean
 
    If Rek Then Exit Sub
 
    Rek = True
 
    Zeilen = Split(Me.Text1.Text, vbCrLf)
 
    If UBound(Zeilen) > 2 Then
        Me.Text1.Text = Mid(Me.Text1.Text, 1, Len(Me.Text1.Text) - Len(vbCrLf))
        Me.Text1.SelStart = Len(Me.Text1.Text)
    Else
        For i = LBound(Zeilen) To UBound(Zeilen)
            Me.Label1.Caption = Zeilen(i)
 
            If Me.Label1.Width + 200 > Me.Text1.Width Then '200 = Rand
                Me.Text1.Text = Mid(Me.Text1.Text, 1, Len(Me.Text1.Text) - 1) & _
                  IIf(i < 2, vbCrLf & Right(Me.Text1.Text, 1), "")
                Me.Text1.SelStart = Len(Me.Text1.Text)
            End If
        Next
    End If
 
    Rek = False
End Sub