Userform mit ComboBox - Change Ereignis

Private Sub UserForm_Initialize()
With ComboBox3
.Clear
.AddItem "Beiträge"
.AddItem "Test2"
.AddItem "Test3"
.AddItem "Test4"
.AddItem "Test5"
.ListIndex = -1
End With
End Sub

Private Sub ComboBox3_Change()
ComboBox4.Clear
End Sub

Private Sub ComboBox4_Enter()
With ComboBox4
.Clear
Select Case ComboBox3.Value
Case "Beiträge"
.AddItem "Beitrag1"
.AddItem "Beitrag2"
.AddItem "Beitrag3"
Case "Test2"
.AddItem "Vorab1"
.AddItem "Vorab2"
.AddItem "Vorab3"
Case Else
.AddItem "Sonstiges"
End Select
End With
End Sub