Check if Word Exists in Array?

If you are interested, with the dictionary.
List some items in column A to test

Sub jec()
 With CreateObject("scripting.dictionary")
   For Each it In Range("A1", Range("A" & Rows.Count).End(xlUp))
     c00 = .Item(it.Value)
   Next
   Range("C1").Resize(.Count) = Application.Transpose(.keys)
 End With
End Sub