Private Function equals(ByRef Box As RichTextBox, ByRef Box2 As RichTextBox) As _
  Boolean
Dim i&
 
equals = True
 
For i = 0 To Len(Box.Text)
 
If Not Mid(Box.Text, i + 1, 1) = Mid(Box2.Text, i + 1, 1) Then
 
  With Box2
     .SelStart = instrRev(.text," ",i,vbTextCompare)
     .SelLength = instr(i,.text, " ",vbTextCompare)-(.selStart+1) <font _
       color=green>'kann unter umständen sein das du stadt 'i' , 'i+1' eingeben 
     ' muß</font>
     .SelUnderline = True
  End With
 
  equals = False
 
End If
 
Next i
End Function