Private Sub Command1_Click()
Label1.Caption = Text1.Text
Timer1.Enabled = True
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

Private Sub Timer1_Timer()
If Val(Label1.Caption) > 0 Then
Label1.Caption = Label1.Caption - 1
    If Label1.Caption = 0 Then
        Beep
    End If
Else
Timer1.Enabled = False
End If
End Sub