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

            Dim myRequest As WebRequest = WebRequest.Create(p_URL)

            Dim myResponse As WebResponse = myRequest.GetResponse()

            Dim MyStream As Stream = myResponse.GetResponseStream
            Dim Encode As Encoding = System.Text.Encoding.GetEncoding("windows-1251")
            Dim readStream As New StreamReader(MyStream, Encode)
            Return  readStream.ReadToEnd

        End Get
    End Property
End Class