How to replace smart quote to plain quote using RegEx

General
1

currently i am using REPLACEALL to change smart quote as follow. can i do it with RegEx??

Public Function DoSanitizeImage(vImageName) as string

vImageName=ReplaceAll(vImageName,Chr(8216),"'")
vImageName=ReplaceAll(vImageName,Chr(8217),"'")
vImageName=ReplaceAll(vImageName,Chr(8220),"'")
vImageName=ReplaceAll(vImageName,Chr(8221),"'")
vImageName=ReplaceAll(vImageName,Chr(39),"'")
vImageName=ReplaceAll(vImageName,Chr(145),"'")
vImageName=ReplaceAll(vImageName,Chr(146),"'")
vImageName=ReplaceAll(vImageName,Chr(34),"'")
vImageName=ReplaceAll(vImageName,Chr(147),"'")
vImageName=ReplaceAll(vImageName,Chr(148),"'")
  
vImageName=vImageName + ".jpg"
RETURN vImageName
End Function