Kolla om datum är giltigt

Har två stycken dropdown:er, en med datum och en med månad.
Året är alltid det aktuella.

Man kan t ex skapa en "matris" som talar om hur många dagar det är i varje månad. Dock uppstår ju då problemet med skottåren. Hur ska jag lösa det?

Select Case month
     Case "1"
          intDaysInMonth = 31
     Case "2"
          intDaysInMonth = [b]?[/b]
     osv...
End Select