How to find a letter is superscript or not in Ms word Using Vba

See more:

Visual-Studio

VS2010

MS-Word

I have a word like CA++ and Ca++. Here the ++ are superscript,Here i can't write in superscripts.

My Problem is how can I find the font of the word's Super script is true or false, using vb.net. Am using vs2010 and vb.net

I tried like this

If (Doc.Application.Selection.Range.Characters(3).Font.Superscript = True AndAlso Doc.Application.Selection.Characters(4).Font.Superscript = True) Then
    wsel.SetRange(wsel.Start + StartChar - 1, wsel.Start + EndChar)
    wsel.Font.Superscript = True
    Document.Selection.MoveRight(Unit:=WdUnits.wdCharacter, Count:=1)
 ElseIf (Document.Application.Selection.Text.ToUpper() = "CA++") Then
    wsel.Font.Superscript = False
 End If

Sugget me to get a solution. Thanks in advance