Не запускается приложение при старте системы с корректными записями в реестре

Private Sub CheckBox6_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Master Car x86", Application.ExecutablePath)
        Else
            Dim MySK As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\", True)
            MySK.DeleteValue("Master Car x86")
        End If
    End Sub
End Class

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim NameApp As String = "WindowsApplication7.exe"
        Dim name As String = "WindowsApplication7"
        Dim pathLink = My.Computer.FileSystem.SpecialDirectories.Programs & "\Автозагрузка"
        Dim WshShell As New WshShell
        Dim shortcut As WshShortcut
        shortcut = WshShell.CreateShortcut(pathLink & "\" & name & ".lnk")
        With shortcut
            .TargetPath = Application.StartupPath & "C:\Users\Пользователь\Desktop\WindowsApplication7\WindowsApplication7\bin\Debug" & NameApp 'Путь до запускаемого файла
            .WindowStyle = 1
            .WorkingDirectory = Application.StartupPath
            .IconLocation = Application.StartupPath & "\" & NameApp & ", 0"
            .Arguments = ""
            .Save()
        End With
        WshShell = Nothing
        shortcut = Nothing
    End Sub

.TargetPath = Application.StartupPath & "C:\Users\Пользователь\Desktop\WindowsApplication7\WindowsApplication7\bin\Debug" & NameApp 'Путь до запускаемого файла

.TargetPath = Application.StartupPath & "\" & NameApp 'Путь до запускаемого файла

"""" & Application.ExecutablePath & """"