Here's almost entire codes below.

Public Function ReturnDate(ByVal UnitNum As Integer, ByVal CellNum As Integer, ByVal StartDate As Date, ByVal EndDate As Date) As Date

...