find samme tal i kommarække

id = 3
liste = "1,3,54,5,66"

arr = Split(liste, ",")
antal = UBound(arr)
fundet = False

For i=0 To antal
    If id = CInt(arr(i)) Then
        fundet = True
        Exit For
    End If
Next


If fundet Then
    Response.Write "fundet"
Else
    Response.Write "ikke fundet"
End If

Alternativt:

id = 3
liste = "1,3,54,5,66"

if instr(1, "," & liste & ",", "," & id & ",") > 0 then
  response.write "fundet"
else
  response.write "ikke fundet"
end if

Denne metoder kræver at der ikke er nogle blanke karakterer i strengen...
Grunden til at der kommer komma før og efter listen er at jeg så får et entydigt format af strengen og det jeg skal søge efter, nemlig ",<tal>," og jeg sikrer derfor at det altid er det faktiske tal jeg får fat i og ikke, som du også nævner, risikerer at få fat i andre tal der "ligner"...