Opret budget periode

Er Kørt lidt fast i nedenstående:

Jeg har 2 felter periodestart og periodeslut
Intervallet mellem disse er altid 10 år.

Herefter skal jeg kunne indtaste en given aktivitet som har et interval.

Eksempel:
Periode 2008 - 2018.

1. aktivitet skal starter i 2009 og komme igen hvert 3. år perioden ud.
2. aktivitet skal starte i 2008 og komme hvert år perioden ud.
3. aktivitet skal starte i 2010 og komme hvert 5. år perioden ud.
o.s.v.

Periode og interval indtastes manuelt.


Der hvor det går galt er hvis perioden ændres!

Mit udgangspunkt er følgende, men her starter alle aktiviteter altid ved periodestart og sætter beløbet ind i 10 felter År1, År2, År3: 

Private Sub Beløb_AfterUpdate()
Dim N As Integer
If Me!Interval <> 0 Then
    For N = 0 To 9 '10 års periode
      If N / Me!Interval = Int(N / Me!Interval) Then
            Me("År" & Trim(CStr(N + 1))) = Me!Beløb
      Else
            Me("År" & Trim(CStr(N + 1))) = 0
      End If
    Next N
End If
End Sub

Er der nogen som kan hjælpe med et godt bud!