I just joined up so I could thank @mac_shinobi for posting that script.
A customer just asked me if there was any way to automate volume control as he schedules music to play at the same time every day and wanted to make sure the volume was correct. I embedded that code into a Macro script and it worked perfectly.
Also to add one more thing, in case others are looking for this, you can also toggle mute on and off :
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(chr(&hAD))