how to find nth word in string value In Excel-VBA

Question

the word may be more than one and one word. I don't know how to find that word in excel VBA. If I use MID ans Instr method, those method can't fix the error.