CommandButton und Listbox

Ist es möglich durch einen CommandButton und listbox mit mehrfachauswahl, diverse Makros auszuführen.

Etwa wie unten aber dann einer welche funktioniert?

Private Sub CommandButton1_Click()

If ListBox1.Value = "1" Then Call Makro1
If ListBox1.Value = "2" Then Call Makro2
If ListBox1.Value = "3" Then Call Makro3
If ListBox1.Value = "4" Then Call Makro4
If ListBox1.Value = "5" Then Call Makro5
If ListBox1.Value = "6" Then Call Makro6
If ListBox1.Value = "7" Then Call Makro7
If ListBox1.Value = "8" Then Call Makro8

End Sub

Ich hoffe Ihr könnt mich mal wieder weiter helfen.

Grüsse

Robert