Verificar a existência de placa de som.

Exemplo:

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Dim res As Integer
res = waveOutGetNumDevs()
If res > 0 Then
msgbox "Existe Placa de Som"
Else
msgbox "Não Existe Placa de Som"
End If