Hi Rick,

Nice function !

I'd prefer not to restrict it to 26 characters; 2 alternatives ?

Code:
Sub snb()
    MsgBox find_snb("Dön", "Dön't tell me, but your name is Dön, right?", 2)
End Sub

Sub snb2()
    MsgBox find_snb2("don", "Don't tell me, but your name is Don, right?")
End Sub

Function find_snb(c00, c01, x)
   If x = 1 Then find_snb = InStr(" " & Replace(Replace(Replace(Replace(Replace(c01, ",", " "), ".", " "), ";", " "), "?", " "), "!", " ") & " ", " " & Trim(c00) & " ")
   If x = 2 Then find_snb = InStr(" " & Replace(Replace(Replace(Replace(Replace(LCase(c01), ",", " "), ".", " "), ";", " "), "?", " "), "!", " ") & " ", " " & Trim(LCase(c00)) & " ")
End Function

Function find_snb2(c00, c01, x)
   find_snb2 = "word number " & Application.Match(c00, Split(Application.Trim(Replace(Replace(Replace(Replace(Replace(c01, ",", " "), ".", " "), ";", " "), "?", " "), "!", " "))), 0)
End Function