Option Explicit

Private Sub CBPrposedDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'run the sub for date checking
    If dater = 1 Then Cancel = True
End Sub

Function dater() As Integer
'Updated Dater function by DavidCoutts (dbforums) 25/01/2004

Dim banana As Date
Dim LastCell As Range
    
    
    'set inital value
    dater = 0
    
    On Error GoTo InvalidDate
    'convert value ot a date,  If not exists go to the error handler
    banana = CDate(FRMAgent_Details.CBPrposedDate.Text)
    
    On Error GoTo 0
    'Try to find the correct date
    Set LastCell = Worksheets("Inputform").Range("u2").EntireColumn.Find(banana)
    If Not LastCell Is Nothing Then
        'if the date exists update TBRequestDate appropriatly
        With Worksheets("Inputform").Range(LastCell.Address)
            If UCase$(FRMAgent_Details.CBAreaOfBus) = "SALES" Then
                FRMAgent_Details.TBRequestDate.Text = CDate(.Offset(0, 3).Value)
            Else
                FRMAgent_Details.TBRequestDate.Text = CDate(.Offset(0, 2).Value)
            End If
        End With
    Else
        'Case when no valid date entered i.e. not on worksheet
        MsgBox "Date outwith valid boundaries", vbOKOnly
    End If
    
    Exit Function
    
InvalidDate:
    'Case when a date value not entered
    Dim msgAnswer As VbMsgBoxResult
    
    'check if user wants to input a proper date
    msgAnswer = MsgBox("Date Value not Entered, Update?", vbYesNo, "Invalid Date")
    Select Case msgAnswer
        Case vbYes
            'if yes reset focus
            CBPrposedDate.Text = ""
            dater = 1
        Case vbNo
            'stop execution of the macro
            Exit Function
    End Select
        
End Function