Private Sub ComboBox3_Change()
Dim i As Long
Dim j As Byte, c As Byte
For i = 1 To UBound(TabTemp)
c = 0
For j = 1 To 3
If TabTemp(i, j) = Controls('combobox' & j) Then
c = c + 1
End If
If c = 3 Then TextBox1 = Format(TabTemp(i, 4), '0#'' ''##'' ''##'' ''##'' ''##')
Next j
Next i
End Sub