Pones dos combobox, el primero con propiedad visible en false, y ahí es donde insertas los datos, y el text.
Private Sub Text1_Change()
Dim DelCombo$
Combo2.Clear 'Borramos los datos en combo2
For i = 0 To Combo1.ListCount - 1 'recorremos el combo1
DelCombo = Mid(Combo1.List(i), 1, Len(Text1.Text)) 'DelCombo es igual a la string sacada desde su inicio, hasta lo que mide text1
If DelCombo = Text1.text Then 'Si el string que sacamos es igual a lo que copiamos en el textbox
Combo2.AddItem Combo1.List(i) 'se agrega al combo2 el dato que contiene combo1
End If
Next i
End Sub
Saludos