Dim SrhKey$, T$
For i = 1 To 3
T = Trim(Controls("TextBox" & i).Text) SrhKey = SrhKey & "/" & IIf(T = "", "*", T)
Next i
For R = 2 To UBound(MA1)
Key = "/" & Cells(R, "A") & "/" & Cells(R, "C") & "/" & Cells(R, "E")
If Key Like SrhKey Then '·j´M
'===========
'-----§Aªºµ{¦¡-----
'===========
End If
Next R