Combobox

Primero de todo, necesita almacenar los datos del segundo combobox por las categorías de las carreras, que supongo que no todas tendrán las miasmas, en tu caso.
Te pongo el ejemplo siguiente, espero que lo sepas interpretar, si no, coméntamelo.
En el Form_Load()
Dim facult As String
Dim faculta2() As String
Facult = "Derecho, Informática, Medicina" 'Poner todas las facultades separadas por ","
faculta2 = Split(facult, ",")
Dim carre(UBound(faculta2),4) As String     'El 4 es un ejemplo, cambiarlo por el             'número que tenga mas especialidades, si tiene una facultad 3 y otra tiene 5 poner 5.
'Ahora hay que insertar manualmente las carreras con cada facultad.
Ejemplo: para poner los datos del segundo combobox hay que poner los datos correspondientes a cada facultad. El ejemplo lo pongo siguiendo como lo planteaba.
Carre(0,0)="Licenciatura" 'la primera cifra corresponde a la primera facultad
carre(0,1)="Tecnico" 'introducida, y la segunda cifra corresponde al numero
Carre(0,2)="Diplomatura" 'de carrera en esa facultad, en el caso primero la
Carre(1,0)="Licenciatura" 'primera cifra 0 corresponde en este caso a Derecho y
Carre(1,1)="Técnico" 'puedes comprobar que le ponemos 3 especialidades,
Carre(2,0)="Licenciatura" 'el que sigue con el 1, correspondería a Informática, que
Carre(2,1)="Diplomatura" 'le hemos puesto 2 especialidades y luego el siguiente que
Carre(2,2)="Doctorado" 'es el 2 corresponde con medicina y le hemos puesto 4
carre(2,3)="Especialización"      'especializaciones.
for i=0 to UBound(faculta2)
      facultades.AddItem faculta2(i)
next
Ahora tienes que agregar en el Before_Update del primer combobox que seria facultades:
carrera.clear
for i=0 to UBound(carre, 2)
      if carre(facultades.index,i)<>"" then
       carrera.AddItem carre(facultades.index,i)
      else
       exit for
      end if
next