Visual Basic - combobox

Buenos dias, ante todo perdon por la pregunta, que supongo que sera bastante facil para mucho de ustedes, pero yo estoy empezando y .... ya se sabe, bueno voy:

Quiero relacionar dos combobox, es decir, tengo una aplicacion con dos combos, os voy a poner un ejemplo:

en un combo tengo por ejemplo 4 localidades: A, B, C y D

quiero que cuando seleccione una de las opciones (A,B,C o D)
en otro combo que haya al lado me aparezca una lista deplegable con A1, A2, A3....
igual para la opcion B,C, D

Mira tenia ganas de resolverlo. Estudialo.

Option Explicit

Private Sub Form_Load()

Combo2.Clear

With Combo1
.Clear
.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "D"
End With

End Sub

Private Sub Combo1_click()

Select Case Combo1.Text
Case "A": Call CargarCombo("A")
Case "B": Call CargarCombo("B")
Case "C": Call CargarCombo("C")
Case "D": Call CargarCombo("D")
End Select

End Sub

Public Sub CargarCombo(Opcion As String)

Dim i As Integer

With Combo2
.Clear
For i = 1 To 5
.AddItem Opcion & i
Next i
End With

End Sub