Each "OR" is its own logical expression.
If quark = "F" Or quark ="DE" Or quark ="ED" Then
You could achieve what you are trying to do with the case, although I think
Select Case quark Case "F","DE","ED" stuffHere end select
EDIT: I see that you are getting a type mismatch, are you a dull quark like a string?
dim quark as string
Elias source share