仮想マシンからノートPCへ管理共有してコピーがしたいです。

仮想マシンからノートPCへの移行で、管理共有で必要なものをコピーしたいです。

移行される方のExcelリストを頂きました。
リストには200名ほどいらっしゃいます。
そのExcelのA列には「ログイン名」、B列には「仮想マシン名」、C列には「IPアドレス」が記載されています。

やりたいこととしましては、
①、Excelリストを読み込む。
②、リストからA列の「ログイン名」を取得する。
③、今使っているノートPCのログイン名を取得する。
④、②がノートPCと同じログイン名だったら同じ行のB列の「仮想マシン名」に管理共有する。
⑤、④で管理共有できなかったら同じ行のC列の「IPアドレス」で管理共有する。
⑥、④⑤どちらもできなかったらメッセージボックスでエラーを表示する。

すみません。
途中までしかわからずできませんでした。

どうかご教示をお願い致します。

ここに言語を入力コード

Private Sub Worksheet_Change(ByVal Target)
    Dim userName As String = Environment.UserName
    Dim csvPath As String = Path.Combine("C:\app_install\Shinkura_Fukugen\20220622_シンクラ使用者リスト.xlsx")

    Dim r As Long
    If Target.Column > 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    r = Target.row
    If Range("A" & r).Value = userName Then

        Range("B" & r).Value


    End If
End Sub