Public Function GetFile(ByRef FileToGetURL As String, ByRef DestPathFile As _
  String)
 
        Dim fs As FileStream
        Dim req As WebRequest
        Dim stm As Stream
        Dim sr As StreamReader
 
        Try
            req = WebRequest.Create(FileToGetURL)
            req.Method = "GET"
 
            Dim rsp As WebResponse = req.GetResponse()
 
            Try
                fs = New FileStream(DestPathFile, FileMode.Create)
 
                CopyData(rsp.GetResponseStream(), fs)
            Catch exp As Exception
                MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _
                  MessageBoxIcon.Stop)
            Finally
 
                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
 
            MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, _
              MessageBoxIcon.Stop)
 
        End Try
End Function