Как отсортировать год в обратном порядке?

---

Привет,
Я новичок в кодировании VBA. Я только что сделал программу, в которой создал форму пользователя, имеющую три ComboBox, а именно день, месяц и год.
Мне удалось успешно заполнить их необходимыми данными. В ComboBoxYear, выпадающего год начинается с крайней мере (т. е., 1960 года, который у меня сохранился), и заканчивается с текущего года (т. е. 2017,).
Я хочу изменить этот выпадающий список, начиная с 2017 года, и продолжает уменьшаться до 1960 года.
Ниже приведена часть кода, где я закодировал входные данные для DDMMYYY.

Что я уже пробовал:

Private Sub UserForm_Initialize()
Dim i As Integer
With UserForm1
For i = 1 To 31
    .ComboBoxDay.AddItem (i)
    Next
End With

Dim ctr As Long
For ctr = 1 To 12
Me.ComboBoxMonth.AddItem Format(DateSerial(YYYY, ctr, DD), "mmm")
Next ctr

With UserForm1
For i = 1960 To 2017
    .ComboBoxYear.AddItem (i)
    Next

End With
End Sub

---