1: 2: 3: 4: 5: 6:
For i = (Me.LstRHFGrants.ListCount + 1) To ((Me.LstRHFGrants.ListCount + 1) + 4) year = year + 1 With Me.LstRHFGrants .AddItem (grantdesc & ";" & year) End With Next