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 Antwort
 
        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 = 59 Then
                SekAnz = 0
                MinAnz = MinTmp + 1
            End If
            SekAnz = SekTmp + 1
            If MinAnz = 59 And SekTmp = 59 Then
                MinAnz = 0
                StdAnz = StdTmp + 1
 
            End If
            If StdAnz = 24 And MinTmp = 59 And SekTmp = 59 Then
                StdAnz = 0
                MsgBox("Alles geht von vorne los")
 
 
 
            End If
            SekAnz = SekTmp + 1
            If StdTmp < 10 And StdTmp > 0 Then
                StdTmp = "0" & StdAnz
            End If
            If MinTmp < 10 Then
                MinTmp = "0" & MinAnz
            End If
            If SekTmp < 10 Then
                SekTmp = "0" & SekAnz
            End If
 
            StdTmp = StdAnz
            MinTmp = MinAnz
            SekTmp = SekAnz
            Antwort = MsgBox("Es ist nicht " & TimeOfDay & " Uhr, sondern " & _
              StdAnz & ":" & MinAnz & ":" & SekAnz & " Uhr." & Chr(13) & _
              "Weitermachen?", MsgBoxStyle.YesNo)
 
 
 
        Loop While Antwort = MsgBoxResult.Yes
    End Sub