La imagen muestra el código para ambos elementos. Private Sub UserForm_Initialize() tiene un código que es para el formulario, ese código lo que hace es cargar el combobox1 con las palabras Peticiones, Quejas, Reclamos y Sugerencias, para que cuando el usuario abra el formulario ya esas palabras estén disponibles para seleccionar.
Luego mas abajo esta el código para el combobox1: Private Sub ComboBox1_Change(). Ese código lo que hace es llenar los otros combobox, en base a la selección que el usuario haya hecho en el combobox1.
Ahora bien, parece que estas aprendiendo recién como funciona VBA en Excel. Cuando estas en el modo de edición del formulario, al dar doble click a cada elemento (el formulario en sí también es un elemento) entonces te cambiara la pantalla al modo de editor de código para ese elemento al que le hayas dado doble click. También te pondrá un pequeño código predefinido y mas común. Por ejemplo, si le das doble click a un TextBox, te abrirá el editor de código para ese textbox, y automáticamente te pondrá el evento mas común para ese elemento, que seria Private Sub TextBox1_Change().
Para implementar el código que te mostré antes o el del otro compañero que te respondió, solo debes dar doble click en cualquier elemento del formulario, o en el propio formulario para abrir el editor de código. Borra cualquier código predefinido que te salga, deja el editor en blanco, y pega el siguiente código ahí:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Peticiones"
.AddItem "Quejas"
.AddItem "Reclamos"
.AddItem "Sugerencias"
End With
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.Value = "Peticiones" Then
With Me.ComboBox2
.Clear
.AddItem "Peticiones 1"
.AddItem "Peticiones 2"
'etc etc
End With
With Me.ComboBox3
.Clear
.AddItem "Peticiones 1"
.AddItem "Peticiones 2"
'etc etc
End With
ElseIf Me.ComboBox1.Value = "Quejas" Then
With Me.ComboBox2
.Clear
.AddItem "Quejas 1"
.AddItem "Quejas 2"
'etc etc
End With
With Me.ComboBox3
.Clear
.AddItem "Quejas 1"
.AddItem "Quejas 2"
'etc etc
End With
ElseIf Me.ComboBox1.Value = "Reclamos" Then
With Me.ComboBox2
.Clear
.AddItem "Reclamos 1"
.AddItem "Reclamos 2"
'etc etc
End With
With Me.ComboBox3
.Clear
.AddItem "Reclamos 1"
.AddItem "Reclamos 2"
'etc etc
End With
ElseIf Me.ComboBox1.Value = "Sugerencias" Then
With Me.ComboBox2
.Clear
.AddItem "Sugerencias 1"
.AddItem "Sugerencias 2"
'etc etc
End With
With Me.ComboBox3
.Clear
.AddItem "Sugerencias 1"
.AddItem "Sugerencias 2"
'etc etc
End With
End If
End Sub