Lost my internet for awhile.

Sure, here is the routine from which it came.

Code:
    Private Sub txtSubmit_Leave(sender As Object, e As EventArgs) Handles txtSubmit.Leave
        'Date Validation
        If String.IsNullOrEmpty(txtSubmit.Text) Then Exit Sub
        If Not IsDate(txtSubmit) Then
            MsgBox("Please enter a valid date.", vbCritical)
            txtSubmit.SelectionStart = 0
            txtSubmit.SelectionLength = Len(txtSubmit)
            txtSubmit.Focus()
        End If
    End Sub