Private Function GetData(ByVal HttpString As String) As String

        Try

            Dim request As HttpWebRequest = HttpWebRequest.Create(HttpString)
            Dim valueString As String = Nothing

            request.Method = WebRequestMethods.Http.Get

            Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)

            Using reader As New StreamReader(response.GetResponseStream)
                valueString = reader.ReadToEnd()
            End Using

            Return valueString

        Catch ex As Exception
            ErrorList.Add(ex.Message) : Return Nothing
        End Try

    End Function