Private Sub xpButton1_Click()
  Dim I As Long
  Dim Suchbegriff As String
 
 If Form2.Caption = " neuen In Aut Fett hinzufügen " _
 Then
   Suchbegriff = UCase$(Trim$(Text1.Text))
 
    For I = 1 To Form1.Grid.Rows - 1
    If InStr(1, UCase$(Form1.Grid.TextMatrix(I, 4)), Suchbegriff) > 0 Then _
      Goto ErrHandler2
    Exit For
    Next
End If
 
ErrHandler2:
If MsgBox("Der Eintrag existiert bereits!", 16, "Achtung") = 0 Then Exit Sub
End Sub