Validar Fecha Textbox

[marabra]

tambien podrias crear una funcion y pasarle los texbox que quieras

Private Sub validar_fecha(ByVal text As TextBox)
Dim fecha As Date
On Error GoTo errorfecha
fecha = TextBox1.Text
errorfecha:
MsgBox("La Fecha que ha ingresado no es válida, intente nuevamente")
End Sub

luego solo lo llamarias en el evento lostfocus o el validating de cada textbox

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
validar_fecha(Me.TextBox1)
End Sub

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
validar_fecha(Me.TextBox1)
End Sub