If s is your string, you can do it like this:
Mid(s, index, 1)
Edit based on the comment below.
It seems you need a slightly different approach, which should be simpler. Try as follows:
Dim character As String 'Integer if for numbers = ActiveDocument.Content.Text - we don't need it character = Activedocument.Characters(index)
Kazimierz Jawor
source share