regex for pattern in grep

I am trying to look for gene symbols in some text, for that purpose I am trying to stablish a pattern that match with gene symbols (they use to be three or more uppercase letters together). I tried this but it didn't work.

Please help! I am realy stuck

TW2 <- text_words [grep ("b\[[:upper:]]b\", text_words) ]