Visual Basic - Validación de fechas

Mi duda es como validar las fechas de los meses del año ya que algunos traen 31, otros 30, y Febrero que trae 28 o a veces si es bisiesto, me gustaría que me enviaran un codigo de ejemplo para ver como validar los datos.

Leandro

Yo para validar fechas uso lo siguiente:

On Error GoTo Error_Fecha
Dim fecha As Date
fecha = CDate(Text1.Text)
Exit Sub
Error_Fecha:
x = Err.Number
Select Case x
Case 13
MsgBox ("Tu fecha es Incorrecta...ingresa de nuevo")
Text1.Text = ""
End Select

Espero que te sirva.

Otra manera mas sencilla para validar una fecha es la siguiente

if isdate(text1.text) then
msgbox("SI ES FECHA")
else
MSGBOX("NO Es FECHA")
end if

espero tambien te sirva