VB 使用C语言Escape的方法

在C语言中，escape的符号很好用，
比如
 "中国一定强"
这个字串可以写成：
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
用字元编码编写程序，在其他不同语言的windows运作时，比较不会有问题。
（我尽量不想在程序中写入中文）
但是vb如果全部要用字元编码写的话，就会很麻烦而且一个一个都要手写成：
ChrW(&H4E2D) & ChrW(&H56FD) & ChrW(&H4E00) & ChrW(&H5B9A) & ChrW(&H5F3A)
所以我写了一条短短的function:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Public Function EscToStr(ByVal c As String) As String
        Dim tmp, str1, str2, str3, str4 As String
        Dim i, outend1, outend2 As Integer
        i = 1
        outend1 = 1
        Do While outend1 <> 0
            str1 = c
            outend1 = InStr(i, str1, "\x")
            i = outend1 + 1
            outend2 = InStr(i, str1, "\x")
            If outend2 = 0 Then
                outend2 = Len(str1) + 1
            End If
            str2 = Mid(str1, outend1 + 2, outend2 - outend1 - 2)
            str3 = "&H" & str2
            str4 = ChrW(str3)
            tmp = tmp &