en este code se usa variables, supongo que sabes usarlas, es solo una y de tipo integer, tambien te puse el code todo los botones y labels para que veas todo, el del timer tambien esta claro

Dim tiempo As Integer
Private Sub Command1_Click()
Text1.Text = "10"
End Sub
Private Sub Command2_Click()
Text1.Text = "30"
End Sub
Private Sub Command3_Click()
Text1.Text = "15"
End Sub
Private Sub Command4_Click()
Text1.Locked = False
End Sub
Private Sub Command5_Click()
If Command5.Caption = "Empezar" Then
Label5.Visible = True
Command5.Caption = "Parar"
Timer1.Interval = 1000
Timer1.Enabled = True
Else
Label5.Visible = False
Command5.Caption = "Empezar"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
tiempo = Text1.Text
If tiempo <> 0 Then
tiempo = tiempo - 1
Text1.Text = tiempo
Else
Timer1.Enabled = False
Label5.Visible = False
Text1.Text = ""
Command5.Caption = "Empezar"
Beep
End If
End Sub