[color=blue]Private Sub[/color] Command1_Click()
    [color=blue]Dim[/color] DateTime [color=blue]As Date[/color]
    [color=blue]Dim[/color] Splitted() [color=blue]As String[/color]
 
    DateTime = Text1.Text & " " & Text2.Text
    DateTime = DateAdd("h", 1, DateTime) [color=green]'Hinzuaddierende 
    ' Stunden
    DateTime = DateAdd("n", 1, DateTime) [color=green]'Hinzuaddierende 
    ' Minuten
 
    Splitted = Split(DateTime, " ")
    Text1.Text = Splitted(0)
 
    [color=blue]If[/color] [color=blue]UBound[/color](Splitted) = 1 _
      [color=blue]Then[/color]
        Text2.Text = Splitted(1)
    [color=blue]Else[/color]
        Text2.Text = "00:00:00"
    [color=blue]End If[/color]
[color=blue]End Sub[/color]