Cargar un combo en función de otro

En el siguiente código vemos cómo cargar un combo en función de otro:

Private Sub ComboNorma_Exit(Cancel As Integer)
    'Si hay algún valor en el combo PADRE
    If ComboNorma.ListIndex <> -1 Then
        'Y no hay ningún valor en el combo HIJO
        If ComboSubRubro.ListIndex = -1 Then
            'Elijo el valor del HIJO tomando la tercera columna del combo PADRE
            ComboSubRubro.Value = ComboNorma.Column(2)
        End If
    End If
End Sub

Referencias:

• http://msdn.microsoft.com/en-us/library/aa240832(v=vs.60).aspx
• http://msdn.microsoft.com/en-us/library/office/ff192660.aspx