Sub SoundLineOut()
    RegWrite "HKCU\Software\Microsoft\Multimedia\Sound Mapper\Playback", _
      "SoundMAX Digital Audio"
    RegWrite "HKCU\Software\Microsoft\Multimedia\Sound Mapper\Record", _
    "SoundMAX Digital Audio"
End Sub
 
Sub SoundUSBOut()
    RegWrite "HKCU\Software\Microsoft\Multimedia\Sound Mapper\Playback", "USB" & _
      "AUDIO"
    RegWrite "HKCU\Software\Microsoft\Multimedia\Sound Mapper\Record", "USB" & _
    "AUDIO"
End Sub