No a ešte môžeme vyňať ComboBox58:

Private Sub ComboBox30_Change()

Dim x As Byte
Dim y As Byte

On Error Resume Next
x = ComboBox2.ListIndex
y = ComboBox30.ListIndex
On Error GoTo 0

With ComboBox58
    Select Case x
        Case 0
            Select Case y
                Case 0
                    .ListFillRange = ""
            End Select
        Case 1, 5
            Select Case y
                Case 1 To 10
                    .ListFillRange = "vera"
                Case 11 To 22
                    .ListFillRange = "verb"
            End Select
        Case 2, 4, 6, 8
            Select Case y
                Case 1 To 5
                    If x = 2 Or x = 6 Then .ListFillRange = ""
                    If x = 4 Or x = 8 Then .ListFillRange = "verb"
                Case 6 To 7
                    .ListFillRange = "vera"
                Case 8 To 22
                    .ListFillRange = "verb"
            End Select
        Case 3, 7
            Select Case y
                Case 1 To 7
                    .ListFillRange = "vera"
                Case 8 To 22
                    .ListFillRange = "verb"
            End Select
    End Select
End With

End Sub

a už fakt dosť