Добавить программу в автозагрузку - VB

Sub bb()
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Startup") & "\MyProg.lnk")  'имя ярлыка
    .TargetPath = "c:\temp\MyProg.exe"        'путь к программе
    .HotKey = "CTRL+ALT+T"                    'опционально
    .Description = "Всплывает при наведении"  'опционально
    .IconLocation = "shell32.dll, 5"          'опционально
    .WindowStyle = 1                'опционально: 1-норм, 3-макс, 7-мин
    .WorkingDirectory = "C:\temp\"            'опционально
    .Save
  End With
End With
End Sub