vba: logical error . Output is not correct

[shrinivasshweta]

arr1 = Array("m", "n", "o", "p")
    
    With Worksheets("Sheet1")
    With .Range("B3", .Cells(Rows.Count, "M").End(xlUp))
    celltxt1 = Sheet1.Range("b:b").Text
    If InStr(1, celltxt1, " *abc* ") Then
    'do nothing
        Else: For Each cell In Range("M:M")
                   If cell.Value = vbNullString Then
                   'do nthing
                   Else:
                     For Each elem In arr1
                       a = a + WorksheetFunction.Sum(WorksheetFunction.CountIf(.Columns(7), elem))
                       Next elem
                  End If
               Next cell
           End If
    
    End With
    End With

I want to run this macro with the above logic.
There is no compile time error but i am getting the output as
a
0


I don;t know whats wrong with this logic.
Can someone please help me out?
Thank you so much in advance.

 

[shrinivasshweta]

I tried with this logic too: still same reply

search = " *abc* "
With Worksheets("Sheet1")
With .Range("B3", .Cells(Rows.Count, "M").End(xlUp))


    If (IsError(Application.VLookup(search, Sheet1.Range("B:B"), 3, False))) Then
    For Each cell In Range("M:M")
              If IsEmpty(cell) = False Then
                 For Each elem In arr1
                   a = a + WorksheetFunction.Sum(WorksheetFunction.CountIf(.Columns(7), elem))
                   Next elem
              End If
           Next cell
       End If

please help me out !