匹配函数返回错误：类型不匹配

Question

我正在尝试修改在假日添加天数的代码，当在定义的假日数组匹配函数中搜索时，返回不匹配类型13错误。

Public Function Add2DaysAndSkipHolidayList(ByVal dateInputOutput As Date) As Date    
    Dim index As Long

    dateInputOutput = dateInputOutput

    If Weekday(dateInputOutput, vbMonday) = 7 Then
        dateInputOutput = dateInputOutput + 1
    ElseIf Weekday(dateInputOutput, vbMonday) = 6 Then
        dateInputOutput = dateInputOutput + 2
    End If

    On Error Resume Next

    Do
        index = 0
        index = Application.Match(dateInputOutput, ThisWorkbook.Worksheets("Holiday").Range("A:A").Value, 0)
        dateInputOutput = dateInputOutput + 1
    Loop While Not index = 0

    On Error GoTo 0

    dateInputOutput = dateInputOutput - 1

    If Weekday(dateInputOutput, vbMonday) = 7 Then
        dateInputOutput = dateInputOutput + 1
    ElseIf Weekday(dateInputOutput, vbMonday) = 6 Then
        dateInputOutput = dateInputOutput + 2
    End If

    Add2DaysAndSkipHolidayList = dateInputOutput
End Function 

在检查周六和周日时效果很好，在检查预定义的假期时，匹配返回类型不匹配错误。我正在使用Office 365