Excel会先检查剪贴板中的日期，然后再继续

如何解决Excel会先检查剪贴板中的日期，然后再继续

我正在尝试提供一个代码，该代码将检查用户剪贴板以确保剪贴板中的第一个值是日期。如果不是，则在继续操作之前退出子。我遇到的问题是，这将不是一个特定的日期，而是任何日期。在有人粘贴数据以确保它不会引起其他问题之前，我将其用作错误检查器。

这是代码的一部分

    Dim MyText As String
    Dim datevalue As String
    Set MyData = New DataObject
    MyData.GetFromClipboard
    MyDate = MyData.Getdate
    

    If Left(MyText,2) <> datevalue(date_string) Then Exit Sub

    Sheets("Sheet1").Range("a1") = MyText

当其运行excel时说“编译错误：期望的数组”。我认为这是因为它期望在datevalue（date_string）中输入实际日期，但是我不知道如何说“ Any Date”而不是特定的日期？任何帮助将不胜感激。