Quick question - how do I find the line number a particular word is on?

Code:

For iCount = 1 To ThisDocument.Content.Words.Count
sWord = Trim(ThisDocument.Content.Words.Item(iCount))
if sWord = <criteria> then
iLineNumber = ?????
end if
Next iCount

Thanks in advance