Private Declare Function APIBeep Lib "kernel32" Alias _
    "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 Private Sub macro()
 Dim frq As Variant
 Dim lng As Variant
 Const d As Long = 261
 Const r As Long = 293
 Const m As Long = 329
 Const f As Long = 349
 Const s As Long = 392
 Const l As Long = 440
 Const c As Long = 493
 Const d2 As Long = 522
 Const t As Long = 60000 / 30
 frq = Array(d, r, m, f, s, l, c, d2)
 lng = Array(t, t, t, t, t, t, t, t)
 For i = 0 To UBound(frq)
    APIBeep frq(i), lng(i)
 Next i
 End Sub