Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long


Dim res As Integer
res = waveOutGetNumDevs()
If res > 0 Then
   msgbox "Existe tarjeta de sonido"
Else
   msgbox "No existe tarjeta de sonido"
End If