Excel VBA find the 4th instance of a word

do you have the sample words?

Also providing the excel will be helpful

And maybe you want to find the last instance ?

Here is the Excel version:

Find nth occurrence (position) of a character in a Cell with Find formula
In a blank cell, enter the formula =FIND("c",A1,FIND("c",A1)+2).
And then press the Enter key. ...
Note: You can change the 2 in the formula based on your needs.


https://www.extendoffice.com/documents/excel/1052-excel-find-nth-occurrence.html#a1

This is the code in one line

cells.Find("computer",cells.Find("computer",cells.Find("computer",cells.Find("computer",,,xlpart),,xlpart),,xlpart),,xlpart).Row

Select allOpen in new window

You can make it more readable like this 

Cells.Find("computer", _
    Cells.Find("computer", _
        Cells.Find("computer", _
            Cells.Find("computer", , , xlPart) _
        , , xlPart) _
    , , xlPart) _
, , xlPart).Row

Select allOpen in new window

Thanks very much