Combine recursive listing with excluded code

[anmac1789]

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

By itself, doesn't work because I have Option Explicit. But if I add Dim sn As Variant then the sub works. The second one also works without having to define split with dim