Great video, as usual! I wrote a different procedure for the Next Leap Year function, and I was hoping for some feedback from more experienced programmers. Thank you!

Details

Public Function NextLeapYear(TestDate As Date) As Long

    Dim TempDate As String, Y As Long
    
    Y = Year(TestDate)
    TempDate = ""
    
    Do Until IsDate(TempDate)
        Y = Y + 1
        TempDate = "2/29/" & Y
    Loop

    NextLeapYear = Y
    
End Function