함수를 서브 루틴으로 변환하기 vba

Question

나는 아래와 같은 함수를 가지고 있습니다. 서브 루틴으로 변환해야합니다. 서브 루틴 내부에서이 함수를 호출 할 수있는 방법이 있습니까?

'function to calculate nth specific last day of a month like last saturday or last monday 

Function LastDayOfMonth(Which_Day As String, Which_Date As String) As Date 

    Dim i As Integer 
    Dim iDay As Integer 
    Dim iDaysInMonth As Integer 
    Dim FullDateNew As Date 

    Which_Date = CDate(Which_Date) 

    Select Case UCase(Which_Day) 
     Case "SUN" 
      iDay = 1 
     Case "MON" 
      iDay = 2 
     Case "TUE" 
      iDay = 3 
     Case "WED" 
      iDay = 4 
     Case "THU" 
      iDay = 5 
     Case "FRI" 
      iDay = 6 
     Case "SAT" 
      iDay = 7 
    End Select 

    iDaysInMonth = Day(DateAdd("d", -1,DateSerial(Year(Which_Date),Month(Which_Date)+ 1, 1))) 
    FullDateNew = DateSerial(Year(Which_Date), Month(Which_Date), iDaysInMonth) 

    For i = 0 To iDaysInMonth 
     If Weekday(FullDateNew - i) = iDay Then 
      LastDayOfMonth = FullDateNew - i 
      Exit For 
     End If 
    Next i 
End Function 

Answer 1

sub callit() 
    Dim d as Date 
    d = LastDayOfMonth(...) 
end sub