Getting Error 500 plz try this code

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DownloadImage("http://www.lawsociety.org.uk/choosingandusing/findasolicitor/action=solicitorsearch.law?startrow=0&SURNAME=e")
    End Sub
    Private Function DownloadImage(ByVal url As String) As String
        Dim request As WebRequest = WebRequest.Create(url)
        Dim response As WebResponse = request.GetResponse()
        Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
        Dim str As String = reader.ReadToEnd
        Dim strDetails As String = ""
      

    End Function
 < ...