VB.NET HttpWebRequestで SSLサイトにアクセスする実装

HttpWebRequestクラスで SSLサイト("https://"で始まるサイト)にアクセスするには、以下のおまじないが必要なようです。

まずは手順のみ。
①ポリシークラスを作成する。
②ポリシークラスをインスタンス化しSystem.Net.ServicePointManager.CertificatePolicyに設定する。
③その後HttpWebRequestクラスで通信を行う。

ではサンプルコードです。

'①のサンプルコードここから==============================
'Exchangeサーバ SSL対応用クラス
Public Class MyPolicy
Implements System.Net.ICertificatePolicy

'チェック用関数。常に Trueを返す。
Public Function CheckValidationResult( _
ByVal srvPoint As System.Net.ServicePoint _
, ByVal certificate As System.Security.Cryptography.X509Certificates.X509Certificate _
, ByVal request As System.Net.WebRequest _
, ByVal certificateProblem As Integer _
) As Boolean Implements System.Net.ICertificatePolicy.CheckValidationResult

'常に Trueを返す。
Return True

End Function
End Class
'①のサンプルコードここまで==============================

'②のサンプルコードここから==============================
System.Net.ServicePointManager.CertificatePolicy = New MyPolicy
'②のサンプルコードここまで==============================

以上