Dim nDev As Integer
nDev = waveOutGetNumDevs()

If nDev > 0 Then
MsgBox "Ditt system stöder ljudkort.", vbInformation
Else
MsgBox "Ditt system kan inte spela upp SB-kompatibla ljudkort.", vbInformation
End If