Dim prozesse = Process.GetProcessesByName("Apfel")
For Each prozess In prozesse
  Dim titel = prozess.MainWindowTitle
  If titel.Contains("Marmelade") Then
    MsgBox("Ein Glas Marmelade wurde gefunden!")
  End If
Next