Imports System
 
Public Class Test
    Public Shared Sub Main()
        Dim OriginalURL As String = "http://w...content-available-to-author-only...e.com/some file with spaces.php?q1=plus+&q2=at@&q3=svenska språkets 'ö'"
        Dim EncodedURL As String = Uri.EscapeDataString(OriginalURL)
 
        Console.WriteLine("Original URL: " & OriginalURL)
        Console.WriteLine()
        Console.WriteLine("Encoded URL: " & EncodedURL)
    End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBEaW0gT3JpZ2luYWxVUkwgQXMgU3RyaW5nID0gImh0dHA6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5lLmNvbS9zb21lIGZpbGUgd2l0aCBzcGFjZXMucGhwP3ExPXBsdXMrJnEyPWF0QCZxMz1zdmVuc2thIHNwcsOla2V0cyAnw7YnIgogICAgICAgIERpbSBFbmNvZGVkVVJMIEFzIFN0cmluZyA9IFVyaS5Fc2NhcGVEYXRhU3RyaW5nKE9yaWdpbmFsVVJMKQoKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiT3JpZ2luYWwgVVJMOiAiICYgT3JpZ2luYWxVUkwpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJFbmNvZGVkIFVSTDogIiAmIEVuY29kZWRVUkwpCiAgICBFbmQgU3ViCkVuZCBDbGFzcw==