VBAでユニコードエスケープされた文字を復元.意外と短くできた

gistfile1.txt

Sub test()
  Set re = CreateObject("VBScript.RegExp")
  re.Pattern = "\\u([a-fA-F0-9]{4})"
  re.Global = True
  re.IgnoreCase = True
  re.MultiLine = True
  a = "\u3042\u3044\u3046\u3048\u304A" 'あいうえお
  Set mc = re.Execute(a)
  For Each m In mc
    For Each s In m.submatches
      a = Replace(a, "\u" & s, ChrW("&h" & s))
    Next
  Next
  MsgBox a
End Sub