Datum voor agenda automatisch naar volgende dag zetten

[bar88]

Wie kan mij helpen.

begin tijd
Range D26 = 12 april 2020
Range G26 = 15:00uur

Eind
Range H26 = 02:00 uur (volgende dag

With CreateObject("Outlook.Application").CreateItem(1)
.Subject = "Inzet Bike Team tezamen met " & Range("J26")
 .Start = (Range("D26")) + (Range("G26"))
 .End = (Range("D26")) + (Range("H26"))
 .Location = "Middeldijkerplein"
 .Save
End With

Nu is mijn vraag.
Hoe kan ik de eindtijd automatisch naar de volgende dag zetten in agenda?
Nu loopt hij vast.

 

[VenA]

Als het altijd de volgende dag is dan 1 bij range("D26") optellen.

.End = Range("D26") +1 + Range("H26")

 

[bar88]

Zo simpel, bedankt