highlystrung,

Does this need to be VBA? This formula should do the trick
=LOOKUP(2,1/(LEN(--TRIM(MID(SUBSTITUTE(E2," ",REPT(" ",99)),99*(ROW($1:$30)-1)+1,99)))=3),--TRIM(MID(SUBSTITUTE(E2," ",REPT(" ",99)),99*(ROW($1:$30)-1)+1,99)))