Die API Funktion waveOutGetNumDevs gibt die Anzahl der auf dem Rechner verfügbaren Ausgabegeräte zurück. Ein Wert ungleich 0 verrät, dass eine Soundkarte installiert sein muss:

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

Public Property Get IsSoundPresent() As Boolean
  IsSoundPresent = CBool(waveOutGetNumDevs())
End Property