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