Ajuda com botões de navegação no form sem registro

Bom dia,

Venho mais uma vez pedir ajuda com botões de navegação...

Estou usando o seguinte código, para navegar entre os botões de volume no form....

Não estou usando tabelas...

Private Sub cmdBaixarSOM_Click()
Dim Index As Long
Dim BaixarVol As String

Select Case Index
Case 1 = BaixarVol.Cliked
' Decrease Volume
Me.coco.settings.volume = (0)
Me.cmdBaixarVol.BackColor = vbRed
Me.cmdBaixo30.BackColor = False
Me.cmdBaixo50.BackColor = False
Me.cmdBaixo80.BackColor = False
Me.cmdBaixo100.BackColor = False
Case 2 = cmdBaixo30.Clicked
' Decrease Volume
Me.coco.settings.volume = 30
Me.cmdBaixo30.BackColor = vbRed
Me.cmdBaixarVol.BackColor = False
Me.cmdBaixo50.BackColor = False
Me.cmdBaixo80.BackColor = False
Me.cmdBaixo100.BackColor = False
Case 2 = cmdBaixo50.Clicked
' Decrease Volume
Me.coco.settings.volume = 50
Me.cmdBaixo50.BackColor = vbRed
Me.cmdBaixo30.BackColor = False
Me.cmdBaixarVol.BackColor = False
Me.cmdBaixo80.BackColor = False
Me.cmdBaixo100.BackColor = False
Case 2 = cmdBaixo80.Clicked
' Decrease Volume
Me.coco.settings.volume = 80
Me.cmdBaixo80.BackColor = vbRed
Me.cmdBaixo30.BackColor = False
Me.cmdBaixarVol.BackColor = False
Me.cmdBaixo100.BackColor = False
Case 2 = cmdBaixo100.Clicked
' Increase Volume
Me.coco.settings.volume = 100
Me.cmdBaixo100.BackColor = vbRed
Me.cmdBaixo30.BackColor = False
Me.cmdBaixarVol.BackColor = False
Me.cmdBaixo50.BackColor = False
Me.cmdBaixo80.BackColor = False

End Select


End Sub

Os botões individuais estão funfando beleza... Criei dois botões: um para ao clicar nele vá aumentando o volume e o outro, baixando... Se clicar nos botões, alter o som do Media Player...

Preciso que ao clicar no botãocmdBaixarSOM, baixe o som autoaticamente...

Por favor se alguém poder me dar uma dica, ficarei grato...

Optei pela forma de botões para facilitar...

Abraços, no aguardo...