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

Dim i As Long

i = waveOutGetNumDevs()

If i > 0 Then 
      MsgBox "Bilgisayarınızın ses kartını var"      
Else
      MsgBox "Bilgisayarınızın ses kartını yok veya yüklenmemiş"      
End If