Imports System.Net
Imports System.IO
Imports System.Text
Public Class clsURL
    Public Shared ReadOnly Property URL(ByVal p_URL As String) As String
        Get
            'Put user code to initialize the page here
            Dim myRequest As WebRequest = WebRequest.Create(p_URL)
            ' Return the response. 
            Dim myResponse As WebResponse = myRequest.GetResponse()

            ' Code to use the WebResponse goes here.
            ' Close the response to free resources.
            Dim MyStream As Stream = myResponse.GetResponseStream
            Dim Encode As Encoding = System.Text.Encoding.GetEncoding("windows-1251")
            ' Pipe the stream to a higher level stream reader with the required encoding format.
            Dim readStream As New StreamReader(MyStream, Encode)
            URL = Replace(readStream.ReadToEnd, vbCrLf, "")
            URL = Replace(URL, "'", "'")
        End Get
    End Property
End Class