ComboBox to automatically change based on another ComboBox

[Anarchus]

Hi there,

A slightly odd one, hopefully it makes sense.

I have multiple ComboBox that currently work, they basically link to one another. There are more than the following, just a few examples of how it currently appears:

ComboBox1 =
Customer Service
Service Provided

ComboBox2 =
(When "Customer Service" is selected)
Compliment
Complaints

(When "Service Provided" is selected)
Ad Hoc
Value Added

ComboBox3 =
(When "Customer Service" and "Compliment" is selected)
Feedback
Suggestion

(When "Customer Service" and "Complaint is selected)
Incident
Problem

(When "Service Provided" and "Ad Hoc is selected)
None
Cost

(When "Service Provided" and "Value Added" is selected)
Timeliness
Quality

(Hopefully you can understand what the above means). None of that I want to change, there is no issue there.

Basically if someone changes one of the options (i.e. ComboBox2), I want the next option (i.e. ComboBox3) to become blank again and when you click on the drop menu, the correct list appears for selection.

That sounds confusing I know.
ComboBox1 = "Customer Service"
ComboBox2 = "Complaint"
ComboBox3 = "Incident"

Person changes their minds:
ComboBox1 = "Customer Service"
ComboBox2 = Change to "Compliment"
ComboBox3 = Firstly, "Incident" is removed and becomes blank, then person clicks on drop menu and selects "Feedback" instead

Currently, if the following VBA code, so not sure what I can add to do the above

PrivateSub ComboBox1_DropButtonClick()
If Me.ComboBox1.Value = "Customer Service" Then
Me.ComboBox2.List = Array ("Complaint", "Compliment")
ElseIf Me.ComboBox1.Value = "Service Provided" Then
Me.ComboBox2.List = Array ("Ad Hoc", "Value Added")
ElseIf Me.ComboBox2.Value = "Complaint" Then
Me.ComboBox3.List = Array ("Incident", "Problem")
ElseIf Me.ComboBox2.Value = "Compliment" Then
Me.ComboBox3.List = Array ("Feedback", "Suggestion")
ElseIf Me.ComboBox2.Value = "Ad Hoc" Then
Me.ComboBox3.List = Array ("None", "Cost")
ElseIf Me.ComboBox2.Value = "Value Added" Then
Me.ComboBox3.List = Array ("Quality", "Timeliness")
End If
End Sub