Buscar por frases claves en un textbox

Me gustaría saber como debo modificar mi código para que mi buscador me arroje los datos sin necesidad de buscarlos con una sola palabra clave sino con más de una palabra que no necesariamente estén en orden. Por ejemplo: quiero buscar este material CORDÓN PORTÁTIL TIPO NPT 3X6 AWG pero ingresando CORDÓN NPT. Como vemos no están en orden estas dos palabras en el registro del material en la celda. Este es mi código actual.

Private Sub MatCod_Change()
Application.ScreenUpdating = False
Sheets("Base datos materiales").Select
Range("B18").Select
ListMat.Clear

While ActiveCell.Value <> ""
M = InStr(1, UCase(ActiveCell.Value), UCase(MatCod.Text))
If M > 0 Then

ListMat.ColumnCount = 7
ListMat.AddItem
ActiveCell.Offset(0, -0).Select
ListMat.List(ListMat.ListCount - 1, 0) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 2) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 3) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 4) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 5) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListMat.List(ListMat.ListCount - 1, 6) = ActiveCell.Value
ActiveCell.Offset(0, -6).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
Sheets("Base datos materiales").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub