codice:
Dim Cont As Byte
Dim Ris As Boolean

Dim Var(6)
Dim Comando

Ris = True
For Cont = 0 To UBound(Var)
  If Comando = Var(Cont) Then
    Ris = False
    Exit For
  End If
Next Cont
If Ris = True Then
  'Mostra Form
End If
Ho capito bene ?