淘宝API 中文sign问题

备注为英文时能正常调用，备注为中文的时候出错：<?xml version="1.0" encoding="utf-8" ?><error_response><code>25</code><msg>Invalid signature</msg></error_response><!--top050061.cm4-->
望各位知道的大哥指点下，问题在什么地方？？？？
Public Function TRADES_MemoUpdate(ByVal AppKey As String, ByVal AppSevret As String, ByVal Session As String, _
                   ByVal Tid As String, Optional ByVal Memo As String = "", Optional ByVal Flag As Long = 0, Optional ByVal Reset As Boolean = False) As String
     '本函数：修改一笔交易备注
     Dim TaobaoAPIBasic As New TaobaoAPI_BasicModule.BasicClass
     Dim sURL, sTmp, Sign, strStatus, Api_Type As String
     Dim Url_Str As String
     Api_Type = Trim(APITypeStr(8))'//taobao.trade.memo.update      Url_Str = Url_Str & "&timestamp=" & Format(Now, "yyyy-MM-dd HH:mm:ss") ' UCase(TaobaoAPIBasic.GB2UTF8(Format(Now, "yyyy-MM-dd HH:mm:ss")))
      Url_Str = Url_Str & "&v=2.0"
      
      TRADES_MemoUpdate = ""
      
      If Trim(AppKey) = "" Then
         TRADES_MemoUpdate = "[ERR_XXTS]" & "不能缺少AppKey！"
         Exit Function
         Else
         Url_Str = Url_Str & "&app_key=" & AppKey
      End If
      
      Url_Str = Url_Str & "&method=" & Api_Type
      Url_Str = Url_Str & "&partner_id=top-apitools"
      Url_Str = Url_Str & "&session=" & Session
      Url_Str = Url_Str & "&format=xml"
      
      
      Url_Str = Url_Str & "&memo=" & UCase(TaobaoAPIBasic.GB2UTF8(Memo))
     ' Url_Str = Url_Str & "&flag=" & Flag
     ' Url_Str = Url_Str & "&reset=true"
      
          
      If Trim(Tid) = "" Then
         TRADES_MemoUpdate = "[ERR_XXTS]" & "不能缺少Tid！"
         Exit Function
         Else
         Url_Str = Url_Str & "&tid=" & Tid
      End If
      
      sTmp = StringSort(Url_Str) '把字符串按淘宝规则排序
      Sign = UCase(TaobaoAPIBasic.GenMD5(AppSevret & sTmp)) 'MD5(Secret & sTmp) '生成淘宝sign
      sURL = "http://gw.api.taobao.com/router/rest?" & "sign=" & Sign & Url_Str    '生成后的淘宝URL
      
      TRADES_MemoUpdate = PostURL(sURL, "")
End Function