String manipulation – Find the position of the letter i in a word list

I want to find the position of the letter i in every word of a text. Take their positions and then summarize them. Example, in simplicity, the score will be 2 + 6 + 8 = 16. In this way, I calculate the score for all words, then I sum the scores.

I have written the following codes until now, but unable to combine them.

Data = "Simplicity and importance are classic and ironic"
TextWords[Data]
Transpose[StringPosition[ToString[StringPosition[ToString[StringPosition[ToString[StringPosition[ToString[Data], "I"]][[1]]Transpose[StringPosition[ToString[StringPosition[ToString[StringPosition[ToString[StringPosition[ToString[Data], "I"]][[1]]

Please help