If e.sender.text.length <= 2 Then If val(e.sender.Text) <= Date.DaysInMonth(Date.today.Year, Date.Today.Month) Then If e.sender.Text.length = 1 Then e.Sender.value = new Date(Date.Today.Year, Date.Today.Month, val(e.sender.text)) ElseIf e.sender.Text.length = 2 Then e.Sender.value = new Date(Date.Today.Year, Date.Today.Month, val(e.sender.text)) End If Else e.sender.Select End If End If