Option Explicit
Sub Test()
Dim c(1 To 3) As Variant
c(1) = 20
c(2) = 511
c(3) = 340
Dim strPath As String
Dim strFile As String
strPath = Range("B3")
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strFile = Dir$(strPath)
Do While strFile <> ""
Debug.Print strFile, MyCompareFunc(strFile, c)
strFile = Dir$()
Loop
Call MsgBox("Fertig.", vbInformation)
End Sub
Private Function MyCompareFunc(Expr As String, CriteriaList() As Variant) As Boolean
Dim i As Long
For i = LBound(CriteriaList) To UBound(CriteriaList)
If Not InStr(1, Expr, CriteriaList(i), vbBinaryCompare) > 0 _
Then Exit Function
Next
MyCompareFunc = True
End Function