dim spt as variant
       spt = split(text1.text, vbCrlf)
 
        if lCheck <= ubound(spt) then
              msgbox "Zeile zum überprüfen wurde beschrieben"
        else
              msgbox "Zeile zum üperprüfen wurde nicht beschrieben"
        end if

 Dim lfehler As Long
 
 For i = 1 To Len(Text1.Text)
  If Right(Left(Text1.Text, i), 1) <> Right(Left(Text2.Text, i), 1) Then
   lfehler = lfehler + 1
  End If
 Next i
 
 MsgBox lfehler