VLookup с параметрами через переменные из значений функции

Function НайдиМеня(lValue As Data, rTable As Range) As Date
Dim FindMe As Range, InMe As Range
FindMe = Range(lValue)
InMe = Range(rTable)
НайдиМеня = Application.WorksheetFunction.VLookup(FindMe, InMe, 1, False)
End Function

Function НайдиМеня(lValue As Variant, rTable As Range) As Date
НайдиМеня = Application.WorksheetFunction.VLookup(lValue, rTable, 1, False)
End Function

Function SimpleD(ByRef НачальнаяДата)
If Weekday(НачальнаяДата, vbMonday) = 5 Then
    SimpleD = НачальнаяДата + 3
Else
    If Weekday(НачальнаяДата, vbMonday) = 6 Then
        SimpleD = НачальнаяДата + 2
    Else
        SimpleD = НачальнаяДата + 1
    End If
End If
End Function
 
 
Function MakeMeHappy(НачальнаяДата As Variant, КрасныеДни As Range)
Dim FindRedDay As Variant
FindRedDay = Application.WorksheetFunction.VLookup(SimpleD(НачальнаяДата), КрасныеДни, 1, False)
 
MakeMeHappy= FindRedDay
 
End Function

Function SimpleD(ByRef НачальнаяДата) As Date
    If Weekday(НачальнаяДата, vbMonday) = 5 Then
        SimpleD = НачальнаяДата + 3
    Else
        If Weekday(НачальнаяДата, vbMonday) = 6 Then
            SimpleD = НачальнаяДата + 2
        Else
            SimpleD = НачальнаяДата + 1
        End If
    End If
End Function
 
Function MakeMeHappy(НачальнаяДата As Date, КрасныеДни As Range)
    Dim FindRedDay As Date
    FindRedDay = Application.WorksheetFunction.VLookup(CLng(SimpleD(НачальнаяДата)), КрасныеДни, 1, False)
    MakeMeHappy = FindRedDay
End Function