Public Function Prüfung(ByVal Eingabe As String, ByRef Pflicht() As String, _
  ByVal Ignore As Boolean) As Boolean
Dim RBool As Boolean
Dim i As Integer
RBool = True
 
If Ignore Then
    For i = LBound(Pflicht) To UBound(Pflicht)
        Pflicht(i) = UCase(Pflicht(i))
    Next i
    Eingabe = UCase(Eingabe)
End If
 
For i = LBound(Pflicht) To UBound(Pflicht)
    If InStr(1, Eingabe, Pflicht(i)) <> 0 Then
        RBool = RBool And True
    Else
        RBool = RBool And False
    End If
Next i
 
Prüfung = RBool
End Function