Assuming your listbox contained a,b,c,d as entries

Private Sub ListBox1_Change()
x = ListBox1.Value

Select Case x

 Case "a"
   "your routine"
 Case "b"
  "your routine"
 Case "c"
  "your routine"
 Case "d"
  "your routine"
   
 End Select
 


End Sub