Функция соответствия возвращает ошибку: несоответствие типов

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