Nedtællingsur i UserForm

Hej

Jeg har brug for noget hjælp til noget kode.

Jeg skal lave et nedtællingsur i en Userform.
Den skal bruges til Intervaltræning.

Den skal bestå af 6 TextBoxe og 4 Cmd-knapper.


Textbox1 : Her skal bruger indtaste antal INTERVALLER eks: (8)

Textbox2 : Her skal brugeren indtaste INTERVALLÆNGDE eks: (2 min)
Format: HH:MM:SS "00:02:00"

Textbox3 : Her skal brugeren indtaste antal PAUSELÆNGDE eks: (30 sek)
Format: HH:MM:SS "00:00:30"

Textbox4 : Skal udregne den totale tid for træningspasset
8 x 2 min + 8 x 30 sek. = 20 min
Format: HH:MM:SS "00:20:00"

Textbox5 : Skal vise nedtællingen af de aktuelle INTERVALLER
eks:  8 -> 0
Format: ##

Textbox6 : Skal vise nedtællingen af INTERVALLÆNGDE(2 min)
FontColor: Green
Format: HH:MM:SS "00:02:00"
------Herefter----- 
nedtællingen af PAUSELÆNGDE(39 min)
FontColor: Red 
Format: HH:MM:SS "00:00:30"

CmdButton1: = Start
CmdButton2: = Pause
CmdButton3: = Stop
CmdButton4: = Reset/Clear


Ved udløb af tiden på hver INTERVALLÆNGDE(2 min) ønskes afspilling af en lydfil, ligeledes ved udløb af tiden på hver PAUSELÆNGDE(30 sek.)

Er småt begyndt med den stump kode:
____________________________________________________
Dim SchedRecalc As Date
Dim s As Integer

Sub startx()
s = UserForm1.TextBox2.Value
End Sub
_______________________________________________________
Sub SetTime()
    SchedRecalc = Now + TimeValue("00:00:01")
    Application.OnTime SchedRecalc, "Recalc"
End Sub
________________________________________________________
Sub Recalc()
's = UserForm1.TextBox2.Value
s = s - 1
If s > 0 Then
    UserForm1.TextBox1 = Format(SchedRecalc, "hh:mm:ss")
    Call SetTime
Else
    UserForm1.Label1.Caption = "Tiden er udløbet!"
    Call Disable
End If

End Sub
__________________________________________________________

Sub Disable()
On Error Resume Next
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
___________________________________________________________

Håber I kan hjælpe

/Pejsen