Звуковое предупреждение в Excel

[[Удален]]

Уважаемые программисты, думаю, что не только мне пригодится решение задачи по звуковому предупреждению в Excel. В Сети нашел код на VBA функции Alarm, которая при выполнении определённого условия издает звук.
Вот ссылка, где выложен код.

http://spreadsheetpage.com/index.php/tip/playing_a_sound_based_on_a_cells_value/

Помогите, пожалуйста, вставить код в файл DDE sample. На всякий случай, файл прилагаю.

'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Function Alarm(Cell, Condition)
    Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
    On Error GoTo ErrHandler
    If Evaluate(Cell.Value & Condition) Then
        WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Alarm = True
        Exit Function
    End If
ErrHandler:
    Alarm = False
End Function


Прошу, если можно, прикрепить к ответу работающий файл с этой функцией.
Спасибо.

[[Удален]]

файл DDE-sample.xls для экспорта котировок в реальном времени в Excel поставляется вместе с MetaTrader 4.

[[Удален]]

Если не принципиально, какой будет звук, то в VBA есть встроенная ф-я Beep().