Не проигрывается звуковой файл - VB

Формулировка задачи:

Добрый день. Проблема в следующем. Начал изучать программирование по книге: Лукин С.Н.-Visual Basic 6.0. Создал калькулятор, картинку вставил, но звуковой файл не проигрывает. Код ниже:

Private Sub MMControl1_Done(NotifyCode As Integer)
DeviceType = "WaveAudio"
File Name = "C:\Windows\Media\Alarm01.wav"
Command = "Open"
Command = "Play"
End Sub

В книге написано, "Проверьте настройки вашей звуковой карты в программе «Микшер». Для этого в среде Windows нажмите Пуск  Программы  Стандартные  Развлечения  Регулятор громкости. В возникшем окне снимите флажки (галочки) выключения канала и установите максимальный уровень у каналов Wave (для WAV-файлов и MP3-файлов) и MIDI (для MID-файлов и RMI-файлов)." У меня винда 8.1, там такого нет и эти файлы не отметить. Подскажите, что не так. Помогите!!!!!!!!!!!

Решение задачи: «Не проигрывается звуковой файл»

textual
                            Листинг программы 
                        

                            Private Sub MM
      s = "C:\Windows\Media\Alarm01.wav"
   CreateObject("WScript.Shell").Run s
 End Sub
                        