Fai esattamente come hai detto...
Puoi usare 2 stringhe es:
Dim strTIPO As String
Dim strFILTRO As String
strTIPO="1,2,4,42,56,65,"
strFILTRO="1,2,4,9,11,12,16,"
If instr(strTIPO,Me!caotico & ",")>0 AND instr(....filtro) then
Fai attenzione che ho sfruttato la virgola anche in finale per non incappare nel 1-11 o sottostringhe...
Oppure 2 collection... ma forse ti risulta piu complesso...