到全局代码添加下面代码：

Public Function PercentEncode(ByVal value As String) As String

    Dim stringBuilder As StringBuilder = New StringBuilder()

    Dim text As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_.~"

    Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(value)

    For Each b As Byte In bytes

        Dim c As Char = chr(b)

        If text.IndexOf(c) >= 0 Then

            stringBuilder.Append(c)

        Else

            stringBuilder.Append("%").Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, "{0:X2}", CInt(b)))

        End If

    Next

    Return stringBuilder.ToString()

End Function

调用

PercentEncode(" ")