Public Function GetDataFromURL(ByVal sURL As String) As String
        Dim NewHTML As String

        sURL = Trim(sURL)
        If InStr(sURL, ":/") = 0 Then
            sURL = "http://" & sURL
        End If

        Try
            Dim oReq As System.Net.HttpWebRequest
            Dim oResp As System.Net.HttpWebResponse
            oReq = System.Net.HttpWebRequest.Create(sURL)
            oReq.UserAgent = "Put Name of Your Program HERE"
            oReq.Timeout = 30000
            oResp = oReq.GetResponse
            Dim sr As New IO.StreamReader(oResp.GetResponseStream)
            NewHTML = sr.ReadToEnd
            Return NewHTML
        Catch ex As Exception
            Return ""
        End Try
    End Function