Ошибка при установке программы в автозагрузку в Windows 7

Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
 
Start.SetValue("Instant Helper.exe", Application.StartupPath & "\Instant Helper.exe -m")

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", "Название проги", <Путь к проге>)

Imports IWshRuntimeLibrary
 
Public Class Autoload
    Dim Reg As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False)
 
    'Получить имя сборки приложения
    Dim AppName As String = My.Application.Info.AssemblyName
 
    'определить местонахождение папки Автозагрузка
    Dim StartupFolder As String = Reg.GetValue("Startup")
 
    'сформировать путь и имя ярлыка для автозагрузки
    Dim ShortcutFile As String = StartupFolder & "\" & AppName & ".lnk"
 
    Public Sub AddAutoload()
    'добавление ярлыка (ссылки) на программу в Автозагрузку
 
        Dim WshShell As New WshShell
        Dim Shortcut As WshShortcut = WshShell.CreateShortcut(ShortcutFile)
 
        With Shortcut
            .Arguments = "-m"  'это аргумент запуска моей программы, вам не нужен, т.е. эту строку можно удалить
            .TargetPath = Application.ExecutablePath
            .WindowStyle = 1
            .WorkingDirectory = Application.StartupPath
            .IconLocation = Application.ExecutablePath & ", 0"
            .Save()
        End With
 
        WshShell = Nothing : Shortcut = Nothing
    End Sub
 
    Public Sub DelAutoload()
    'удаление ярлыка (ссылки) на программу из Автозагрузки
 
        IO.File.Delete(ShortcutFile)
    End Sub
 
    Public Function ExistsAutoload() As Boolean
    'проверка наличия ярлыка (ссылки) на программу в Автозагрузке
 
        Return IO.File.Exists(ShortcutFile)
    End Function
End Class