Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
 
Public Class CertificateOverride
 
    Public Function RemoteCertificateValidationCallback( _
    ByVal sender As Object, _
    ByVal certificate As X509Certificate, _
    ByVal chain As X509Chain, _
    ByVal sslPolicyErrors As SslPolicyErrors _
       ) As Boolean
 
 
        Return True
 
    End Function
End Class
 
Public Class MyClass
 
 
 
    Private Sub Myclass_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim oCertOverride As New CertificateOverride
 
        '-- over ride the bad certificate error
        ServicePointManager.ServerCertificateValidationCallback = AddressOf _
          oCertOverride.RemoteCertificateValidationCallback
 
        '-- open the channel to web site
        Dim oReq As WebRequest = System.Net.HttpWebRequest.Create( _
          "http://xxx.xxx.xxx.xxx.com")
 
        '-- set the credentials for HTTPS
        Dim oCred As New System.Net.NetworkCredential("", "")
        oReq.Credentials = oCred
 
        '-- get a response from the site
        Dim oResp As WebResponse = oReq.GetResponse()
 
        My.Computer.Network.DownloadFile("https://xxx.xxx.xxx.xxx/File.csv", _
          "R:\temp\file.csv", "User", "Passwort", True, 6000, True, _
          FileIO.UICancelOption.DoNothing)

Joachim