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
        Dim Ausgabe As String
        Dim Ausgabe2 As Date
        Dim Ausgabe3 As Date
 
 
        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 MinTmp = 60 And SekTmp = 0 Then
                MinTmp = 0
                StdTmp = StdAnz + 1
 
            End If
            If StdTmp = 24 Then
                StdAnz = 0
                MsgBox("Alles geht von vorne los")
            End If
 
            MinAnz = MinTmp
            SekAnz = SekTmp
 
            Ausgabe = StdAnz & ":" & MinAnz & ":" & SekAnz
            Ausgabe = CDate(Ausgabe)
 
            Ausgabe2 = Ausgabe
            Ausgabe3 = Format(Ausgabe2, "HH:mm:ss")
 
            Antwor = MsgBox("Es ist nicht " & TimeOfDay & " Uhr, sondern " & _
              Ausgabe3 & " Uhr." & Chr(13) & "Weitermachen?", MsgBoxStyle.YesNo)
 
            SekAnz = SekTmp + 1
 
        Loop While Antwor = MsgBoxResult.Yes
    End Sub