Sub SubscriptPara()
    Selection.HomeKey wdStory 
    
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[0-9]{1,} "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        Do While .Execute
            If MsgBox("Subscript here?", vbYesNo) = vbYes Then
                With Selection.Range.Font
                    .Bold = True
                    .Color = vbBlack
                    .Superscript = True
                    .Size = 10
                End With
            End If
        Loop

    End With
End Sub