Public Function einsatzmeldung_filtern(meldung As String)
    On Error GoTo error
    Dim fertig As String
    einsatzmeldung = Mid(meldung, InStr(meldung, "/") + 1, InStr(meldung, ")") _
      - InStr(meldung, "/") - 1)
    Rem MsgBox einsatzmeldung, 16, "einsatzmeldung_filtern"
    einsatzmeldung = StrConv(einsatzmeldung, vbUpperCase)
    Rem MsgBox einsatzmeldung, 16, "einsatzmeldung_filtern"
    rueckart = GetIniString(einsatzmeldung, "rueckart", "LEER", einsatzINIfile)
    Rem MsgBox rueckart
    y = GetIniString(einsatzmeldung, "y", "False", einsatzINIfile)
    Rem MsgBox y
    log "OK", "", "Einsatzmeldung:", einsatzmeldung
    log "OK", "", "Rueckart:", StrConv(rueckart, vbUpperCase)
    log "OK", "", "Menschen in gefahr:", StrConv(y, vbUpperCase)
    Exit Function
error:
    Fehler = Fehler + 1
    log "ERR", "Einsatzmeldung filtern", "Fehlgeschlagen", einsatzmeldung
    Resume Next
End Function