Non so se ho capito bene, ma intendi fare una cosa così? :
codice:
Select Case Campo1
  Case "A"
    Select Case Campo2
      Case 1
      '...
    End Select
  '...