Combine recursive listing with excluded code

[snb]

Sub M_snb()
   sn = Split("That is not correct")
   MsgBox Application.Match("not", sn, 0)
End Sub

Sub M_snb()
  MsgBox Application.Match("not", Split("this is not correct"), 0)
End Sub