Find and Replace, replace is placing the character in the wrong location - vba

Question

Here is my text: “ Pulp Speed. ”
I use the [A-Z] because it could contain any letter at the start. My main objective is to replace space between the quote and first letter that starts the sentence. My code is a find and replace:
With ActiveDocument.Range.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
With .Replacement
.ClearFormatting
End With
.Execute FindText:=ChrW(8220) & " ([\#A-Z])", Replacewith:="""\1", _
Format:=True, Replace:=wdReplaceAll
End With
When it replaces my text i get P“ulp Speed.” I am trying to remove the blank space between the Quote and the P and not put it into the word itself. How can I resolve this?
I have rearranged it and found that sometimes it works and then sometimes it doesn't. Like it will place it one time in front and then the next time behind. I have no clue what is happening. But more than often it wont work.
Made the Updates mentioned below but still when running I am getting P"ulp Speed."

Answer 1

You set the parameters wrong for the find-object
You have to set MatchWildcards = true to enable a wildcard/regex search.
Furthermore .Wrap is not a boolean value but takes eg. wdFindContinue
So your code should look like this:
With ActiveDocument.Range.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
With .Replacement
.ClearFormatting
End With
.Execute FindText:=ChrW(8220) & " ([\#A-Z])", Replacewith:="""" & "\1", _
Format:=True, Replace:=wdReplaceAll
End With