VBA查找字符串，然后比较日期

Sub CompareDates()
    Dim searchString As String
    Dim dateStr As String
    Dim searchResult As Integer
    Dim currentDate As Date
    
    ' 输入要查找的字符串和日期
    searchString = "example string"
    dateStr = "2022-01-01"
    currentDate = Date
    
    ' 查找字符串
    searchResult = InStr(1, searchString, "example")
    
    ' 比较日期
    If searchResult > 0 Then
        If currentDate < CDate(dateStr) Then
            MsgBox "当前日期小于指定日期"
        ElseIf currentDate = CDate(dateStr) Then
            MsgBox "当前日期等于指定日期"
        Else
            MsgBox "当前日期大于指定日期"
        End If
    Else
        MsgBox "未找到指定字符串"
    End If
End Sub