Public Function GetFile(ByRef FileToGetURL As String, ByRef DestPathFile As _
      String)
 
        Dim fs As FileStream    ' To access the local file
        Dim req As WebRequest
        Dim stm As Stream
        Dim sr As StreamReader
 
        Try
            ' This sets up the Request instance
            req = WebRequest.Create(FileToGetURL)
 
            ' Use a GET since no data is being sent to the web server
            req.Method = "GET"
 
            ' This causes the round-trip
            Dim rsp As WebResponse = req.GetResponse()
 
            Try
                ' Open the file to stream in the content
                fs = New FileStream(DestPathFile, FileMode.Create)
 
                ' Copy the content from the response stream to the file.
                CopyData(rsp.GetResponseStream(), fs)
 
            Catch exp As Exception
                ' Will catch any error that we're not explicitly trapping.
                MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _
                  MessageBoxIcon.Stop)
 
            Finally
 
                ' Guarantee the streams will be closed
                If Not rsp Is Nothing Then rsp.GetResponseStream.Close()
                If Not fs Is Nothing Then fs.Close()
 
 
            End Try
 
            With msw
                .WriteLine("Copy '{0}' to '{1}' successful", FileToGetURL, _
                  DestPathFile)
                .WriteLine()
                Me.txtOut.Text = .ToString()
            End With
 
        Catch exp As Exception
            ' Will catch any error that we're not explicitly trapping.
            MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _
              MessageBoxIcon.Stop)
        End Try
 
    End Function