笨办法解决 Unicode 编码问题

        Dim tempname As String = corpname
        Dim _name As String = ""
        corpname = ""
        
        Do Until (tempname = "")
            If (tempname.IndexOf("\u") < 0) Then
                corpname = corpname & tempname
                tempname = ""
            ElseIf (tempname.IndexOf("\u") > 0) Then
                _name = tempname.Substring(0, tempname.IndexOf("\u"))
                corpname = corpname + _name
                tempname = tempname.Substring(tempname.IndexOf("\u"))
            ElseIf (tempname.IndexOf("\u") = 0) Then
                _name = tempname.Substring(0, 6)
                corpname = corpname & ChrW(Val(_name.Replace("\u", "&h")))
                tempname = tempname.Substring(6)
            End If
        Loop