StringSplit with SubscriptBox

My code has a problem

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

Enter the image description here

How do I find a solution?