hab nun doch was zu diesem Thema gefunden:
http://www.activevb-archiv.de/vb/VBtips/VBtip0406.shtml
damit kann man den Micropegel messen und beim überschreiten eines Maximum was aulösen - leider läuft das mit meiner SoundBlaster nicht - kann mir jemand was kompatibleres anbieten?