Option Explicit
' zunächst die benötigte API-Funktionen
Private Declare Function OpenProcess Lib "kernel32.dll" ( _
        ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long) As Long
 
Private Const OP_SYNCHRONIZE = &H100000
 
Public Sub SetVolumen()
  Dim Handle As Long
  Dim TaskID As Long
  Dim sPfad As String
  '
  ' Einfach nur den Lautstärkeregler anzeigen
  sPfad = "sndvol32.exe /t"
  TaskID = Shell(sPfad, vbNormal)
  Handle = OpenProcess(OP_SYNCHRONIZE, False, TaskID)
End Sub

Private Sub Command1_Click()
  SetVolumen
End Sub