Cita:
Iniciado por agus0 
ah! ahora entendí Suponiendo que el formato de Fecha que vos querés es
Día/Mes/año Completo (por Ejemplo hoy es "9-12-2010"
Código:
Private Sub CmdComprobar_Click()
Dim aFecha() As String
aFecha = Split(TxtFecha.Text, "-")
If UBound(aFecha) <> 2 Then
MsgBox "Mal el Formato de la Fecha"
ElseIf aFecha(0) > 31 Then
MsgBox "Dia de la Fecha Mal"
ElseIf aFecha(1) > 12 Then
MsgBox "Mes de la Fecha Mal"
ElseIf aFecha(2) < Format(Date, "yyyy") Then
MsgBox "Año Ingresado es Menor al Año Actual"
Else
MsgBox "Fecha Correcta"
End If
End Sub
Espero Que te sirva y que lo ayas entendido, cualquier cosa pregunta :) Suerte!!
Una pregunta, en esta línea del código:
If UBound(aFecha) <> 2 Then
En esa función Ubound, trae el límite superior de guiones medios que se pusieron. En este caso es dos.
Si yo pusiera Lbound, ¿me tendría que traer el límite inferior de guiones medios que sería "uno"?.
Porque cuando lo pruebo con debug y le pongo Lbound solo para sacarme la duda, me aparece "cero"...
Saludos!!!