I am looking for a code to auto scroll on a VBA listbox based on Current date value or next available date.

So example if I have on my worksheet with dates :
26/07/2017
27/07/2017
27/07/2017
28/07/2017
29/07/2017

And if the current system date is = 28/07/2017 then it my scroll to the first 28/07/2017 (first record in the listbox) without selecting the row. I can still scroll up for previous dates or go down for future dates record.
If in a example where the system date is Today (28/07/2017) and there is no 28/07/2017 in the excel sheet, then is must display the next available date ( maybe: 29/07/2017)

Below are the names on my UserForm

My ListBox name is: Listbox1
My Sheet name is: Sheet4
The Date column is: D (also know as: .Column(3) )
The Current Code I have on UserForm_Initialize:
Listbox1.List = Sheets("Sheet4").Range("A4:l" & [a65536].End(3).Row).Value

Example Screenshot
UQb0wYL.png

Regards
Shabeersa