I have not yet looked at your attachments.
In the meantime you can check if you can use this.

Sixthsense's solution
A1 has the sentence (=String).
Column F (= Column 6) has the words your checking against the array.
Sub AAAAA()
Dim a, i As Long
a = Split([A1], " ")
    For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row
        If IsNumeric(Application.Match(Cells(i, 6).Value, a, 0)) Then MsgBox Cells(i, 6).Value & " exist in the array."
    Next
End Sub