Taller - ComboBox y ListBox

Teniendo en cuenta el siguiente formulario

active la ventana de código y copie el código siguiente:

Private Sub ComboBox1_Click()
  ListBox1.Clear
  Select Case ComboBox1.ListIndex
    Case 0
      ListBox1.AddItem "Barranquilla"
      ListBox1.AddItem "Baranoa"
      ListBox1.AddItem "Santo Tomas"
    Case 1
      ListBox1.AddItem "Arjona"
      ListBox1.AddItem "Cartagena"
      ListBox1.AddItem "Turbaco"
    Case 2
      ListBox1.AddItem "Aracataca"
      ListBox1.AddItem "Cienaga"
      ListBox1.AddItem "Santa Marta"
  End Select
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Atlantico"
  ComboBox1.AddItem "Bolivar"
  ComboBox1.AddItem "Magdalena"
End Sub

El anterior programa nos permite seleccionar un Departamento y nos muestra los municipios del Departamento seleccionado.

TALLER: Desarrolle un programa teniendo en cuenta la anterior información.
Espere instrucciones del docente.