Private Sub Command1_Click()
  Dim vDate As Variant
 
  ' Prüfen, ob korrekte Uhrzeit
  If IsDate(Text1.Text) Then
    ' 5 Minuten dazuaddieren
    vDate = CDate("1.1.00 " & Text1.Text)
    vDate = DateAdd("n", 5, vDate)
    Text1.Text = Format$(vDate, "hh:nn")
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de