Private Sub ComboBox8_Change()
If ComboBox6 = "" Or ComboBox7 = "" Then Exit Sub
' Set Mondico = CreateObject("Scripting.Dictionary")
With Range("A10:C" + CStr(Range("C65536").End(xlUp).Row))
Set c = .Find(ComboBox8.Value, ActiveCell, LookIn:=xlValues)
While c.Offset(0, -1) <> ComboBox7 Or c.Offset(0, -2) <> ComboBox6
Set c = .Find(ComboBox8.Value, ActiveCell, searchorder:=xlNext)
c.Activate
Wend
Me.TextBox4 = c.Offset(0, 1).Value
Me.TextBox5 = c.Offset(0, 2).Value
Me.TextBox6 = c.Offset(0, 3).Value
End With
ComboBox5.SetFocus
End Sub