hola amigos, tengo un problema con un combobox, ocupo el list del combo para sacar unas horas, al elejir una hora debe, moostrarla y a la ves que no pueda volver a ser elejida, esto lo estoy haciendo con una matriz pero me da un problema con le subidice que esta fuera del intervalo ojala me puedan ayudar,porquno se que hacer, aqui esta el codigo, gracias.

For i = 0 To cbo_horas1.ListCount - 1
If cbo_horas1.Text = matriz1(i) Then**** en esta linea da el error***
cbo_horas1.Text = Val(matriz1(i)) & "" & UCase(Trim(matriz1(i)))
matriz1(i) = ""
End If
Next i
x = 0
For z = 0 To cbo_horas1.ListCount - 1
If Not ((matriz1(z)) = "") Then
cbo_horas1.List(x) = matriz1(z)
x = x + 1
End If
Next z
End Sub