Here is a function to return a Bi-Weekly date
Function GetNextBiWeeklyDate(StartDate As Date)
Dim NumWeeks As Double
Dim WeekInMonth As Long
Dim dtmToday As Date
dtmToday = Date
WeekInMonth = (Day((DateDiff("d", 0, dtmToday) - 2) / 7 * 7) - 1) / 7 + 1
NumWeeks = DateDiff("ww"...