Dim bolKeyPressed As Boolean
Private Sub Text0_Change()
If Not bolKeyPressed Then
If Me.Text0.Text <= Date Then
MsgBox "Only Present and Future dates allowed."
Me.Undo
End If
End If
bolKeyPressed = False
End Sub
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
bolKeyPressed = True
End Sub
Private Sub Text0_KeyPress(KeyAscii As Integer)
bolKeyPressed = True
End Sub