Try this:
double = false
dim ary(7)
ary(0) = RiderClub1
ary(1) = RiderClub2
...etc. do for all of them
j = 1
while not j >= 7
if ary(j-1) = ary(j) then
double = true
end if
wend
at the end of this, if double is true, then you know that one equaled the other.
Hope that helps. Harold Blackorby
hblackorby@scoreinteractive.com
St. Louis, MO