Select case su range numerico.

[maximum]

Scusate la domanda banale, ma non riesco a fare funzionare l'istruzione in oggetto nella mia pagina ASP.
Ottengo sempre "Errore di sintassi" sia che faccio:

select case (cint(rsDettaglio("numMatricola")))
   case is >= 6000 <= 7999 
       vRiferimento = "PIPPO" 
   case is >= 8000 <= 8999 
       vRiferimento = "PLUTO"
end select

sia che faccio:

select case (cint(rsDettaglio("numMatricola")))
   case >= 6000 <= 7999 
       vRiferimento = "PIPPO" 
   case >= 8000 <= 8999 
       vRiferimento = "PLUTO"
end select

Gentilmente mi suggerite la sintassi corretta?

Grazie anticipatamente.