VBA to combine texts from cells to a single based on another cell value

Hi,
I need VBA to search the rows to find the text in column A if it has more than 4 chracters and another has a value of "Yes". If yes, then it will combine text from each cell to one string. If text does not have more than 4 chracters, then it will the text in that cell. There is problem for one full string which will be cross cells which have formulas and pasted vlaue(empty blanks).

Can someone help me to solve this problem.

Thanks in advance,