Unicodeエスケープされた文字列を文字に戻す方法

「\u30ea\u30af\u30a8\u30b9\u30c8」
このようなにUnicodeエスケープされた文字列を
読める文字に戻します。この場合、「リクエスト」となる。

java の　native2ascii -reverse　と同じようにできないかと、
ごりっとロジック組んでみました。
こんなんでも動くから、まぁいいでしょう！

Function convFromUnicodeEscape(ByVal strTarget As String) As String

    Dim str As String
    Dim strRet As String
    Dim lngPos As Long
    Dim lngStart As Long
    Dim strTmp As String
   
   
    str = strTarget
       
    lngPos = 0
    Do
        lngStart = lngPos
        lngPos = InStr(1, str, "\u")
         
       
        If lngPos > 0 Then
            strRet = strRet & Mid(str, 1, lngPos - 1)
            strTmp = Mid(str, lngPos, 6)
           
            strTmp = Replace(strTmp, "\u", "&H")
            strRet = strRet & ChrW(strTmp)
           
            str = Mid(str, lngPos + 6)
           
        Else
            strRet = strRet & str
       
            Exit Do
        End If
   
    Loop

    Debug.Print strRet
   
    convFromUnicodeEscape = strRet
   
End Function