El code tienes que ponerlo dentro de la etiqueta code, así es mas facil su lectura.
Al grano, lo he solucionado poniendo un filtro
Código:
Private Sub Combo7_click()
If Combo7.ListCount = 1 Then 'Este es el filtro
Combo8.AddItem "suspende linea"
Exit Sub
End If
Select Case Combo7.ListIndex
Case 0
vaciar1
Combo8.AddItem "Clasico"
Combo8.AddItem "Emprendedor"
Combo8.AddItem "VIP"
Combo8.AddItem "Premier"
Combo8.AddItem "Pegate durisimo 4000"
Combo8.AddItem "Durisimo con todos"
Combo8.AddItem "Suspensión voluntaria"
Combo8.AddItem "Paquetes promocionales"
Combo8.AddItem "Planes corporativos"
Combo8.AddItem "Planes emple"
Combo8.AddItem "Planes no vigentes"
Case 1
vaciar1
Combo8.AddItem "Entre panas"
Combo8.AddItem "A tono contigo"
Combo8.AddItem "Movilmensaje"
Combo8.AddItem "Voz confidencial"
Combo8.AddItem "Conectados"
Combo8.AddItem "¿Dondé estás?"
Combo8.AddItem "Mi destino movil"
Combo8.AddItem "AGL wap"
Combo8.AddItem "Pulsa y habla"
Combo8.AddItem "Quien me llamó"
Case 2
vaciar1
Combo8.AddItem "0-500"
Combo8.AddItem "0-800"
Combo8.AddItem "0-900"
Combo8.AddItem "Restricciones internacionales"
Combo8.AddItem "*Unico"
Combo8.AddItem "Atención en lines"
Combo8.AddItem "Factura legal"
Combo8.AddItem "Llamada en conferencia"
Combo8.AddItem "Transferencia de llamadas"
Combo8.AddItem "Voz confidencial"
Combo8.AddItem "Numeros asteriscos"
Combo8.AddItem "Movilasist reposición"
Combo8.AddItem "Roaming global"
Combo8.AddItem "Mi destino movil"
Combo8.AddItem "Voz confidencial"
Case 3
vaciar1
Combo8.AddItem "Chat"
Combo8.AddItem "Servicio de control"
Combo8.AddItem "Menu de información"
Combo8.AddItem "Messenger móvil"
Combo8.AddItem "Paquete ilimitado"
Combo8.AddItem "Paquete por sms"
Combo8.AddItem "Paquete 150"
Combo8.AddItem "Repiques y figuras"
Combo8.AddItem "SMS internacional"
Case 4
vaciar1
Combo8.AddItem "Aba inalambrico"
Combo8.AddItem "Aba movil"
Combo8.AddItem "EVDO"
Case 5
vaciar1
Combo8.AddItem "Vigentes"
Combo8.AddItem "No vigentes"
Case 6
vaciar1
Combo8.AddItem "*UNICO"
Combo8.AddItem "Banesco on line"
Combo8.AddItem "Banco de venezuela"
Case 7
vaciar1
Combo8.AddItem "Equipos en promoción"
Combo8.AddItem "Costos de equipos en promoción"
Case 8
vaciar1
Combo8.AddItem "Agentes autorizados o Premium"
Combo8.AddItem "Atención en linea"
Combo8.AddItem "Kiosco virtual"
Case 9
vaciar1
Combo8.AddItem "Fallas con llamadas"
Combo8.AddItem "Fallas con SMS"
Combo8.AddItem "Falla con servicio especial"
Case 10
vaciar1
Combo8.AddItem "Activa speech de falla"
Combo8.AddItem "Escala caso"
Case 11
vaciar1
Combo8.AddItem "Consulta de caso"
Combo8.AddItem "Escalamiento de caso"
Case 12
vaciar1
Combo8.AddItem "Club cantv"
Combo8.AddItem "Plan renovación de equipos"
Combo8.AddItem "Recuperaciones (Isla de retención)"
Case 13
vaciar1
Combo8.AddItem "Consulta de saldo"
Case 14
vaciar1
Combo8.AddItem "Consulta de saldo"
Case 15 'Teniendo en cuenta este
vaciar1
Combo8.AddItem "suspende linea"
End Select
End Sub
Creo que es eso lo que pides
