Воспроизведение звукового сигнала через определенные промежутки времени

dim n: dim Z: dim k
 
Private Sub Command1_click()
n=10
Z=val(text1.text)
k=n*Z
timer1.interval=k
timer1.enabled=true
End Sub
 
Private Sub Timer1_Time()
Beep(1,1) ' Издать звук, но я точно не помню синтаксис
timer1.enabled=false
End Sub

Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private k As Long, Z As Integer
Private Const n As Long = 10
 
Private Sub Command1_Click()
    Dim sZ As String
    With Text1
        sZ = Trim(.Text): Z = Val(sZ)
        If sZ = "" Or Not IsNumeric(sZ) Or Z < 1 Or Z > 1500 Then
            MsgBox "Ââåäèòå êîððåêòíîå ÷èñëî (1 to 1500) ", vbExclamation, App.Title
            .SetFocus: .SelStart = 0: .SelLength = Len(sZ)
            Exit Sub
           Else
            k = n * Z
        End If
    End With
    Timer1.Enabled = True
    Command1.Enabled = False  'optinal
    
End Sub
 
Private Sub Form_Activate()
  Text1.SetFocus
End Sub
 
Private Sub Form_Load()
  Text1.Text = ""
  With Timer1
    .Interval = 1000: .Enabled = False
  End With
End Sub
 
Private Sub Timer1_Timer()
    Dim sFormCap As String
    Static lScnds As Long
    lScnds = lScnds + 1
    sFormCap = "Îñòàëîñü " & CStr(k - Z) & " ñåê."  'åñëè Âàøè äàííûå â ñåêóíäàõ
    Form1.Caption = App.Title & " - " & sFormCap
    If lScnds >= k Then Beep 2000, 100: Command1.Enabled = True: Timer1.Enabled = False 'âûáèðàéòå Âàøè ïàðàìåòðû
End Sub

  sFormCap = "Осталось " & CStr(k - lScnds) & " сек."  'если Ваши данные в секундах

If Text11.Text > 0 And Text1.Text < 9999 Then
lngCount = Val(Text11.Text) * 2
Timer1.Interval = 1000
Timer1 = True
else
label11.caption= "не корректное число"
End If