Вывод на форму годов и кварталов

Sub Procedure_1()
 
    Dim lStartYear As Long, lEndYear As Long
    Dim lStartQuater As Long, lEndQuater As Long
    Dim i As Long, j As Long
    
    lStartYear = 2009
    lEndYear = 2010
    lStartQuater = 1
    lEndQuater = 2
    
    For i = lStartYear To lEndYear Step 1
        'Если это первый год, то в нём может быть разное количество кварталов.
        'Пользователь может указать только один год.
        If i = lStartYear And lStartYear = lEndYear Then
            For j = lStartQuater To lEndQuater Step 1
                MsgBox i & " - " & j
            Next j
        'Если это первый год, то в нём может быть разное количество кварталов.
        ElseIf i = lStartYear Then
            For j = lStartQuater To 4 Step 1
                MsgBox i & " - " & j
            Next j
        'Если это последний год, то может быть разное количество кварталов.
        ElseIf i = lEndYear Then
            For j = 1 To lEndQuater Step 1
                MsgBox i & " - " & j
            Next j
        'В остальных случаях обрабатывается 4 квартала.
        Else
            For j = 1 To 4 Step 1
                MsgBox i & " - " & j
            Next j
        End If
        
    Next i
 
End Sub