Public Shared Function GetUrlContent(ByVal url As String) As String
Try
Dim myClient As WebClient = New WebClient
Return Text.Encoding.UTF8.GetString(myClient.DownloadData(url))
myClient = Nothing
'response.Close()
Catch ex As Exception
Return ex.ToString()
End Try
End Function