Представим, что требуется воспроизведение звука выстрела в игре. 
Объявляем переменные. 

Dim g As New Graphic
Dim Sound As New SoundX
Dim ak47 As New SoundObj

Теперь можно инициализировать класс для работы со звуком и заносить звуковые файлы в буфер.

Private Sub Form_Load()
    Sound.InitSound Me, g.DX
    ak47.InitFromFile Sound.DSO, "Звуки\ак47выс2.wav"
End Sub

По нажатию клавиши Return воспроизводим буфер, а клавишей Escape будем выходить из программы.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then End
    If KeyCode = vbKeyReturn Then Sound.PlaySound ak47.Obj, 2, 0
End Sub