Visual Basic - validar fecha

saludos a los que lean este mensaje ...

estoy con ADO y SQL 7.0

tengo algo asi

If fecha.SelStart = 2 Then
fecha.SelStart = 3
fecha.SelLength = 2
End If
If fecha.SelStart = 5 Then
fecha.SelStart = 6
fecha.SelLength = 2
End If
End Sub
Private Sub fecha_GotFocus()
If fecha.Text = "" Then
fecha.Text = "dd/mm/aa"
fecha.SelStart = 0
fecha.SelLength = 2
End If
End Sub

COMO PUEDO VALIDAR LA EL CAMPO FECHA QUE ESTE BIEN PUESTO YA QUE EN EL DIA NO DEBE PASAR DE 31 EL MES DE 12
Y EL AÑO PUES QUE SE PONGA CORRECTO LOS 2 DIJITOS

GRACIAS ,,,,,,