Comprobar Fecha Válida

Ejemplo en Visual basic 6, del manejo de la instrucción "DateSerial" enviado por J.I. Moratiel.

Necesitaremos 1 Command1 y un Textbox1.

'Programador: J.I. Moratiel
Option Explicit
Private Sub Command1_Click()
'Ejecutamos la sentencia siguiente.
Text1_LostFocus
End Sub
Private Sub Text1_LostFocus()
'Al perder el foco comprueba que la fecha sea válida.
Dim AlgunaFecha, días
If IsDate(Text1.Text) Then
   AlgunaFecha = CDate(Text1.Text)
   días = DateSerial(Year(AlgunaFecha) + 1, 1, 1) - AlgunaFecha
   Label1.Caption = "Quedan " & días & " días en el año."
   Else
   MsgBox Text1.Text & " NO es una fecha válida."
   'Ponemos el foco de nuevo en Text1
   Text1.SetFocus
   'Limpiamos Text1
   '    Text1.Text = ""
End If
End Sub

El código funciona correctamente y es bastante sencillo, de todas maneras es una buena opción para interactuar con el lenguaje  e intentar algunas variantes.

NOTA: recomiendo personalmente no utilizar acentos en variables, por la experiencia entendemos que a la larga uno pierde la costumbre de hacerlo, no es una mala programación solo que complica la sintáxis sin necesidad.

Saludos.