Dim a As RegExp
Set a = New RegExp

a.Global = True
a.Pattern = "\\\\"
s = "abc\\\\|def|gh\\\\\\\\\\\|ij\\kl\\\\\m"
b = a.Replace(s, Chr(7))


a.Pattern = "([^\\])\|"
b = a.Replace(b, "$1 ")
a.Pattern = "\\\|"
b = a.Replace(b, "|")

a.Pattern = "\\(\w)"
b = a.Replace(b, "$1")

a.Pattern = Chr(7)
b = a.Replace(b, "\")