VBA

VBA

    Dim text As String
    
    Dim d As Date
    Dim y As Integer
    
    text = "28.02.1899"
    If IsDate(text) Then
        'Date is correct, let's check validity: date more than 1900 and less than 2010
        d = CDate(text)
        y = Year(d)
        
        If Year > 1900 And Year < 2010 Then
            'Date is valid, let's proceed with needed logic then
        Else
            'Year is invalid, let's show a message
            'Use MsgBox here
        End If
    Else
        'Date is invalid, let's show a message
        'Use MsgBox here
    End If