if a = b AND c = d then
  'mach was
end if

if a = b then
  if c = d then
  'mach was
  end if
end if

Dim boTest As Boolean
boTest = (a = b) And (c = d)
if boTest then
  'mach was
end if

Gruß
Dirk

--
?Get it right the first time