Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim StdTmp
        Dim StdAnz
        Dim MinTmp
        Dim MinAnz
        Dim SekTmp
        Dim SekAnz
        Dim Antwor
 
        StdAnz = InputBox("Bitte geben sie die Stundenzahl am Start an")
        MinAnz = InputBox("Bitte geben sie die Minutenzahl am Start an")
        SekAnz = InputBox("Bitte geben sie die Sekundenzahl am Start an")
        StdTmp = StdAnz
        MinTmp = MinAnz
        SekTmp = SekAnz
 
 
        Do
            StdTmp = StdAnz
            MinTmp = MinAnz
            SekTmp = SekAnz
 
            If SekAnz = 60 Then
                SekTmp = 0
                MinTmp = MinAnz + 1
            End If
            If MinAnz = 60 And SekTmp = 0 Then
                MinTmp = 0
                StdTmp = StdAnz + 1
 
            End If
            If StdAnz = 24 And MinAnz = 60 And SekAnz = 60 Or StdAnz > 24 _
              And MinAnz = 60 And SekAnz = 60 Then
                StdTmp = 0
                MsgBox("Alles geht von vorne los")
            End If
 
            If StdTmp < 10 And StdTmp > 0 Then
                StdAnz = "0" & StdTmp
            End If
            If MinTmp < 10 And MinTmp > 0 Then
                MinAnz = "0" & MinTmp
            End If
            If SekTmp < 10 And SekTmp > 0 Then
                SekAnz = "0" & SekTmp
            End If
 
            StdAnz = StdTmp
            MinAnz = MinTmp
            SekAnz = SekTmp
            Antwor = MsgBox("Es ist nicht " & TimeOfDay & " Uhr, sondern " & _
              StdAnz & ":" & MinAnz & ":" & SekAnz & " Uhr." & Chr(13) & _
              "Weitermachen?", MsgBoxStyle.YesNo)
 
            SekAnz = SekTmp + 1
 
        Loop While Antwor = MsgBoxResult.Yes
    End Sub