get ASCII value of a Regex backreference in VBA

I have the following snippet in VBA

Dim RegEx As Object
Dim myResult As String

Set RegEx = CreateObject("vbscript.regexp")
With RegEx
    .Global = True
  开发者_运维问答  .IgnoreCase = True
    .MultiLine = True
    .Pattern = "([^a-z|A-Z|0-9|\s])"
End With

myResult = "Hello, World!"

I want to replace each regex match with its ascii value -- in this case, replace anything that's not a letter or number with its ascii value, so the resulting string should be

"Hello44 World33"

I basically want something like this to use the Asc() function on a backreference:

myResult = RegEx.Replace(myResult, Asc("$1"))

except that's not valid. I've tried escaping in various ways but I think I am barking up the wrong tree.

Thanks!

---

Don't know if you can do it in one go with Replace(), but you can use Execute() and loop through the matches. Note your original pattern also matched |, which I don't think you wanted.

Sub Tester()
    Dim RegEx As Object, matches As Object, match As Object
    Dim myResult As String

    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
     .Global = True
     .IgnoreCase = True
     .MultiLine = True
     .Pattern = "([^a-z0-9\s])"
    End With

    myResult = "Hello, World!"

    Set matches = RegEx.Execute(myResult)
    For Each match In matches
        Debug.Print "<" & match.Value & "> = " & Asc(match.Value)
        myResult = Replace(myResult, match.Value, Asc(match.Value))
    Next match
    Debug.Print myResult

End Sub

---

One of the signatures of Regex.Replace takes an evaluator instead of a string for the replacement value. Take a look at this:

Replace Method (String, MatchEvaluator)

Let me know if you need further help.

---

Edit: Added the actual code.

Imports System
Imports System.Text.RegularExpressions

Module RegExSample

    Function AscText(ByVal m As Match) As String
        Return Asc(m.ToString())
    End Function

    Sub Tester()
        Dim RegEx As Object, matches As Object, match As Object
        Dim myResult As String

        Set RegEx = CreateObject("vbscript.regexp")
        With RegEx
         .Global = True
         .IgnoreCase = True
         .MultiLine = True
         .Pattern = "([^a-z0-9\s])"
        End With

        myResult = "Hello, World!"

        myResult = RegEx.Replace(text, AddressOf RegExSample.AscText)
        Debug.Print myResult

    End Sub

End Module