DetectSoundCard (3)

Declare Function waveOutGetNumDevs Lib "winmm.dll" _
Alias "waveOutGetNumDevs" () As Long
'Code

Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "Your system can play sound files.", vbInformation, "Sound Card Test"
Else
MsgBox "Your system can not play sound Files.", vbInformation, "Sound Card Test"
End If