Como me había fijado que la entrada de la fecha la haces dd/mm/yyyy modifiqué el código para poner el orden 2,1,0 y no 0,1,2.
Seguramente copiaste el código que puse antes de yo hace la modificación. Prueba con:
Código:
else if (!(IsDate(strFecha(2) + "-" + strFecha(1) + "-" + strFecha(0))))
Esto es porque si se introduce una fecha 31/10/2006, la pregunta que hará el programa es:
If not IsDate("2006-10-31") Then, pero como lo tenías antes el programa estaba preguntando
If not IsDate("31-10-2006") Then y esta última no es una fecha válida si el servidor tiene su configuración regional como mm/dd/yyyy.
