Set Combo Box Automaticly Show Time

I have a data entry form with several objects; one of them is a combo box where the user chooses a time frame.
How can I change the caption on a combo box (cboTime) were the options are ;
6:30 AM
8:45 AM
12:00 Pm
2:30 PM
The time needs to be entered but we only worry about this time frame. I would like to use the computer, Windows, or Excel clock time to set this combo box time frame, make it change automaticly, so when is 7:45, the combo box will display 6:30 AM, when it 3:45, will show 2:30 PM, ect..

This is the code for the Initialization of the from comb obox

 With cboTime
            .AddItem "6:30 AM"
            .AddItem "9:00 AM"
            .AddItem "12:00 PM"
            .AddItem "2:45 PM"
        End With
        cboTime.Value = ""

When you have a data input form in a production line, any click savings is very valuable, 2 clicks, 3 click, it keeps accumulating user input valuable time!
I’m trying to save one here by setting this combo box automatically to save a click!

Any input is greatly appreciated