Visual Basic - Necessito realizar mascaras de entrada

Hola si estay leyendo ste mensaje muchas gracias.

Necesito realizar Mascaras de entrada en las cajas de texto para valida la entrada de datos, por ejemplo en los de tipo fecha __/__/__.

Ya que si no realizo esto, a almacenar en la base de datos se generan errores por que no coinciden los tipo.

Realizando una mascara de este tipo, evito que introduscan datos erroneos

NO se como seria la mascara pero que tal si la haces a mano.
Seria algo asi:
Private Sub Text1_Change()
Static contador As Integer
contador = contador + 1
If contador = 2 Then
Text1.Text = Text1.Text + "/"
Text1.SelStart = 3
Else
If contador = 5 Then
Text1.Text = Text1.Text + "/"
Text1.SelStart = 6
End If
End If


End Sub