2つプロセスがあり、片方はメインのプロセスの更新ＰＧ（exe）があった場合、メインＰＧプロセスをキルしてその新しいexeと置換するものを作成中です。キルして直ぐ置換する為、エラーが発生します。

2つプロセスがあり、片方はメインのプロセスの更新ＰＧ（exe）があった場合、メインＰＧプロセスをキルしてその新しいexeと置換するものを作成しています。
メインPGをキルして直ぐに置換する為、まだ掴んでいるのか「UnauthorizedAccessException」が発生します。
皆様のお知恵を拝借いたしたく存じます。どうぞご教授お願いいたします。

test.vb
1Private sub test()
2        'ファイルの存在チェック
3        Dim boolFile_Exists As Boolean
4        boolFile_Exists = System.IO.File.Exists(新アプリ)
5        If boolFile_Exists = False Then Exit Sub
6
7        Call Update読込()
8End sub

Update読込
1'アップデート情報読込
2    Private Sub Update読込()
3
4        '現行アプリのバージョン情報を取得
5        Dim currentVerInfo As System.Diagnostics.FileVersionInfo = (
6            System.Diagnostics.FileVersionInfo.GetVersionInfo(現行アプリ))
7
8        '新アプリのバージョン情報を取得
9        Dim newVerInfo As System.Diagnostics.FileVersionInfo = (
10            System.Diagnostics.FileVersionInfo.GetVersionInfo(新アプリ))
11
12        '新旧ファイルのバージョンを比較し、次期バージョンならば置換
13        If currentVerInfo.FileVersion = newVerInfo.FileVersion Then
14            'メッセージ出力し、置換可能か確認
15            Dim result As DialogResult = sfrmメッセージ.ShowDialog(
16                                            "新バージョンがリリースされています。変更しますか。",
17                                            "",
18                                            MessageBoxButtons.OKCancel)
19
20            If result = DialogResult.Cancel Then
21                Exit Sub
22            End If
23        End If
24
25        'POSのタスクをキル
26        Call ProcessKill("プロセス名")
27
28        '現アプリ退避
29        System.IO.File.Copy(現行アプリ, 現行アプリ_退避, True)
30
31        '現行アプリが退避先にあれば現行アプリを削除
32        If System.IO.File.Exists(現行アプリ_退避) = False Then Exit Sub
33        System.IO.File.Delete(現行アプリ)
34
35        '新アプリをコピー
36        System.IO.File.Copy(新アプリ, 現行アプリ, True)
37        If System.IO.File.Exists(現行アプリ) = False Then Exit Sub
38
39        'コピー後のファイルはどうするか削除するか確認する必要あり
40        'System.IO.File.Delete(新アプリ)
41
42       　sfrmメッセージ.ShowDialog("アップデートが完了しました",
43                                            "",
44                                            MessageBoxButtons.OK)
45
46        'プロセスの起動
47        Dim info = New ProcessStartInfo()
48        info.FileName = "test.exe"
49        info.WorkingDirectory = "C:\bin"
50        Process.Start(info)
51
52    End Sub

ProcessKill
1    'プロセスをキルする
2    Private Sub ProcessKill(ByVal subjectP As String)
3
4        Dim processes = Process.GetProcessesByName(subjectP)
5
6        For Each process In processes
7            process.Kill()
8        Next
9
10    End Sub