Dim sTime As String
Dim nMinToAdd As Long
Dim vTime As Variant
 
' Ausgangszeit
sTime = "09:00"
 
' Minuten, die hinzuaddiert werden sollen
nMinToAdd = 15
 
' Uhrzeit berechnen
vTime = DateAdd("n", nMinToAdd, CDate("1/1/02" & " " & sTime))
 
' Zeit formatieren
MsgBox Format$(vTime, "hh:nn")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de