Foros del web, para los que viven de bits

Hola foreros.

Necesito hacer un filtro de fechas (del tipo smalldate). No estoy utilizando VALIDATORS. Lo que hago es preguntar con ISDATE

Is Not IsDate (Fecha.Text) then
Error.text = "Fecha erronea"
end if

Esto funciona si metes fechas IMPOSIBLES con caracteres, etc... Pero si instroduces una fecha tal que 1/1/201 (por ejemplo) se la traga. Osea, que dice que es fecha y a la hora de guardarla en la base de datos, convirtiendolo a smalldate, 'casca'.

¿Qué solución podría darle?

Gracias amigos.

Problema solucionado.
He creado una función muy simple que lo soluciona.

Perdón por las molestias.