VB Script:number of times a character appears in a string with position

[Jyobtech]

Dear Experts,
Please help me out ,
How do I count the number of times a character appears in a string with position .
My code given below working fine but i am not able to find position of the character.

Code:

sample="this, that, other, thing, too"
CharacterCount = Len(Sample) - Len(Replace(Sample, "i", ""))
WScript.Echo CharacterCount

Thanks in advance