Public Function FeldInhaltCheck(Fsysname as string, Kriter as string) as string
'Fsysname = Inhalt des durchsuchten Feld
'Kriter = das Suchkriterium
 
  if not isnull(Fsysname)then
     if InStr(1,Fsysname, Kriter, vbBinaryCompare)> 0 then
       FeldIhnahlCheck= "gefunden"
      else
       FeldIhnhaltCheck= "nicht gef."
     end if
   end if
End function

Fsysname= "Maschine - BFM Epe"
Kriter = "BFM Epe"

?InStr(1,"Maschine - BFM Epe", "BFM Epe", vbBinaryCompare)
0