From code
Const server As String = "http://192.168.3.50:81/_0/"
I changed the code to
Dim request As WebRequest = WebRequest.Create("http://server/" + sdr("kFile"))
Dim response As WebResponse = request.GetResponse()
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
Dim dataStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)
FTPFileLabel.Text = responseFromServer
reader.Close()
response.Close()
End While
Finally
con.Close()
con.Dispose()
End Try
End Sub
and thanks to Zoltán Zörgő for the help.