VBでYahooメールをSSLで送りたい

前提・実現したいこと

VBを用いて、Yahooメールの送信を行いたいです。
2月頭から、Yahooメールの非暗号化通信によるメールソフト送受信認証方式の提供が終了し、
既存のプログラムでは送れなくなってしまいました。
(Yahooの参考URL－－https://whatsnewmail.yahoo.co.jp/yahoo/20210119a.html)

そのため、既存のプログラムを修正し、引き続き送りたいのですが、上手く修正できません。

もしよろしければ、意見をいただけると幸いです。
また、質問内容に不明点などありましたら、ご質問いただけましたら回答いたします。
よろしくお願いいたします。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

該当のソースコード

このプログラムは元々使用していたものです。
ポート番号を465に変更してもうまくいきませんでした。

            Dim msg As New System.Net.Mail.MailMessage()
            msg.From = New System.Net.Mail.MailAddress(AddressF)
            msg.To.Add(New System.Net.Mail.MailAddress(addressT))

            msg.Subject = "タイトル"
            msg.Body = "本文"
            Dim sc As New System.Net.Mail.SmtpClient()
            Dim attach1 As New System.Net.Mail.Attachment(System.Environment.CurrentDirectory & "\" & "test.csv")
            msg.Attachments.Add(attach1)
            'SMTPサーバーなどを設定する
            sc.Host = "smtp.mail.yahoo.co.jp"
            sc.Port = 587
            sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
            sc.Credentials = New System.Net.NetworkCredential("送り元アドレス", "パスワード")
            sc.Send(msg)
            msg.Dispose()
            sc.Dispose()
        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
        End Try