Macro for ensuring two spaces between sentences

Someone kindly created this macro for me for ensuring only one space between a full stop and a new sentence.  

e.g. Full stop. New sentence. 

I now need to create a macro for ensuring there are two spaces in between a full stop and a new sentence. 

e.g. Full stop.  New sentence. 

This is the macro for one space: 

Sub ReduceSpaces()

    Application.ScreenUpdating = False

    With ActiveDocument.Content.Find

        .ClearFormatting

        .Text = " {2,}"

        .Replacement.ClearFormatting

        .Replacement.Text = " "

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = True

        .Execute Replace:=wdReplaceAll

    End With

    Application.ScreenUpdating = True

End Sub

I am just not sure which bit to amend to make it so there are two spaces.  Can someone help?