Hey guys,
I am writing a VBA script inside word right now that replaces right and left side quotes ( and ) with their corresponding HTML numerical codes (‘ and ’)

My problem is I can't get VBA to recognize the difference between the two. It recognizes them as one character. Here's my code.
Sub MultiReplace()

Dim StrFind As String, StrRepl As String

Dim i As Long

StrFind = "',,"

StrRepl = "’,’,‘"

Set RngTxt = Selection.Range

For i = 0 To UBound(Split(StrFind, ","))

Selection.HomeKey wdStory

Selection.Find.ClearFormatting

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = Split(StrFind, ",")(i)

.Replacement.Text = Split(StrRepl, ",")(i)

.Format = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchWildcards = False

.Execute Replace:=wdReplaceAll

End With

Next i

End Sub