Как мне l oop хотя бы все минуты между двумя?

Question

Это мой код

Dim Today As Date
Today = Format(Now(), "YYYY-MM-DD")

Dim startminute As Date
Dim minuteincrease As Double

For i = 0 To 540
    minuteincrease = i
    startminute = Today & " 08:00:00" + minuteincrease
Next i

Я хочу l oop в течение всех минут с 08:00 до 17:00.

Пример. Сегодня это будет с «2020-02-25 08:00:00» до «2020-02-25 17:00:00»

Первая итерация даст 2020-02-25 08:00: 00.

Второй 2020-02-25 08:01:00 и т. Д.

Но я не уверен, как использовать «i», чтобы добавить одну минуту.

У кого-нибудь есть идея?

/ Jens