Hola
El evento que tienes que utilizar es el click, no el change que viene por defecto. Por ejemplo 2 comboa, el 1º con Item1 y item2 y el 2º con 4.
Código:
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Combo2.ListIndex = 2
Else
Combo2.ListIndex = 3
End If
End Sub
--Saludos--