日期格式无法识别

Question

我有一些日期范围，可以通过VBA搜索找到包含我要查找的日期的单元格-该日期是从日历用户窗体中选择的日期，并放置在文本框中。 文本框中日期的格式与范围的格式相同，即dd-mmm（或11-feb），并且代码指示VBA搜索单元格值。 但是，这是我感到困惑的地方。在搜索时，我可以找到任何日期，但只能找到该月10号之后的日期，例如10号，17号或22号。但它无法识别01-09之间的任何东西。 为什么会这样，有什么解决办法吗？

从日历到文本框的代码是

shiftcoverUserForm.dateTextBox.Value = Format(calanderuserform.Calendar1.Value, "dd" + "-" + "mmm")

要搜索的代码是

Dim Srchdate As Range
Dim srchname As Range
Set Srchdate = Worksheets("Shift Cover").Range("c4:abf4").Find(dateTextBox.Value, LookIn:=xlValues)
    If Srchdate Is Nothing Then
        MsgBox "Not Found"

我的数据的屏幕截图如下。基本上，搜索将找到例如1月10日，但是当我希望找到例如1月7日时，它将提示msgbox“未找到