用VBA如何得到ppt文件中某一字段的长度，并提出其中的一个字符

例：For i = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(i)
        For k = 1 To .Shapes.Count
            With .Shapes(k)
            If .Type = msoTextEffect Then
                 MsgBox .TextEffect.Text
这里得到的是一串字符。我想得到这串字符的长度Len。
然后通过for i = 1 To Len
对字符串中的每个字符进行修改。
但是不知道如何求字符串的长度和分别替换每个字符的写法。
请熟悉VBA的朋友帮个忙，谢了。