vbs 解碼 unicode

a =split("\7F57\83B1 Q747\604B\604B\65F6\5149-\5929\4E1D\00AE\590D\5408\6BEF","\")  '羅萊 Q747戀戀時光-天絲®複合毯
For i=1 To UBound(a)
str = str & Decode(a(i))
Next
MsgBox str

Public Function Decode(strDecode)
    Dim i
    Dim strCode
    Dim chrTmp
    If Len(strDecode)>=4 Then
    
	    strCode = Mid(strDecode, 1, 4)
	    chrTmp = ChrW("&H" & strCode)
	    d = d & chrTmp
	    If Len(strDecode)>4 Then
	      Decode=d & Mid(strDecode, 5, Len(strDecode)-4)
	    Else 
	      Decode=d
	    End if
    End if
    
'    For i = 1 To Len(strDecode) Step 4
'        strCode = Mid(strDecode, i, 4)
'        chrTmp = ChrW("&H" & strCode)
        'If chrTmp = "?" Then If strCode <> "003F" Then GoTo ErrProc
'        d = d & chrTmp
'    Next
'    Decode=d
End Function