请问VB中URLEncode怎写？

VB post 提交中文信息需要进行Content-Type: application/x-www-form-urlencoded编码。

代码如下：
Public Function URLEncode(ByVal strParameter As String) As String
Dim s As String
Dim I As Integer
Dim intValue As Integer

Dim TmpData() As Byte

    s = ""
    TmpData = StrConv(strParameter, vbFromUnicode)
    For I = 0 To UBound(TmpData)
        intValue = TmpData(I)
        If (intValue >= 48 And intValue <= 57) Or _
            (intValue >= 65 And intValue <= 90) Or _
            (intValue >= 97 And intValue <= 122) Then
            s = s & Chr(intValue)
        ElseIf intValue = 32 Then
            s = s & "+"
        Else
            s = s & "%" & Hex(intValue)
        End If
    Next I
    URLEncode = s

End Function