Cita:
Iniciado por agus0 
Por lo Poco que entendí podrías corregirlo vos haciendo esto:
Código:
Fecha = Replace(Text1.Text, "/", "-")
Entonces si el Usuario en lugar de usar "-" uso "/" el Programa lo Reemplazaria
Puse un ejemplo de si un usuario se equivoca y pone una fecha que pase la franja de los días o meses, por ejemplo, que supere los 31 días o los 12 meses. Que manera de validación sería la correcta porque cuando esto pasa, aparece un cartel de error como el que puse arriba: "The conversion from datetime data type to smalldatetime data type resulted in an out-of-range".