Option Explicit
 
Private Sub Command1_Click()
    Dim D As Date
    Dim newD As Date
 
    D = CDate("23:58:30")
    newD = DateAdd("n", 5, D) '5 Minuten addieren
    MsgBox Format(newD, "hh:mm:ss")
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1