StringSplit with SubscriptBox

My code has a problem

Row[Dynamic@Style[#, If[CurrentValue["MouseOver"], Red Black], 24]& / @
StringSplit[#] & @ "If I close a slot, for example !  ( * SubscriptBox[(r), (2)]) ",
spacer[5]]

enter the description of the image here

How I find a solution