在单元格文本(vb)中查找字符串

我在工作表中循环行,我想在一些文本中查找字符串:

lr = ws.Cells(Rows.Count, "A").End(xlUp).Row
lrk = wsK.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lr --looping list
  look_name = UCase(ws.Range("E" & i).Value)

    For j = 2 To lrk --loop patern value
    look_text = UCase(wsK.Range("A" & j).Value)

        If look_name Like "*look_text*" Then --if found
            ws.Range("AB" & i) = wsK.Range("B" & j).Value --to do
            Exit For
        End If

    Next j
Next i

我想我做错了什么 "*look_text*"

如果 look_name = "New city" 和 look_text = "city" ,它不会进入if。