Visual Basic - Como puedo forzar un formato de fecha?

Para evitar que se introduzca una fecha inválida quiero forzar a que se use el formato dd/mm/yyyy tengo lo siguiente:

If fec = Format$(Fecha.Text, "dd/mm/yyyy") Then

Pero, por más que pongo la fecha de la forma correcta no lo acepta...alguien me puede ayudar?

Gracias

no veo nada mal en el codigo... imagino k fec = Fecha.Text .... si no trata asi

If Fecha.text = Format$(Fecha.Text, "dd/mm/yyyy") Then

Mejor utiliza el control DataPicker, te muestra en forma de calendario las fechas, tu solamente debes seleccionar la que desees y te evitas tener que estar validando.