[Knalli]

Känns nästan som att en array vore som den lättaste lösningen. Sen skulle jag nog kört med en InStr istället för att kolla exakt.

Typ såhär.
strFilter = "www.sida1.se,www.sida2.se,www.sida3.se"
arrFilter = Split(strFilter,",")
For i = 0 To UBound(arrFilter)
If InStr(1, url, arrFilter(i)) > 0 Then
Mata in i databasen
End If
Next

Eller kanske Utan loop, borde också funka.
strFilter = "www.sida1.se,www.sida2.se,www.sida3.se"
If InStr(1, strFilter, url) > 0 Then

End If