Как создать ссылки с помощью VB ??? Shortcut ???

Option Explicit

' ВНИМАНИЕ!
' Для использования этой процедуры необходимо
' сделать ссылку на Windows Scripting host object model
' Для этого выберите в редакторе VBA пункт меню
' Tools -> References...
Public Sub vbaShortcut(MyPath As String, strName As String)
  Dim WSHShell As Object
  Dim objShortCut As IWshShortcut_Class
  Dim strDesktop As String
 
  'create an instance of the scripting host
  Set WSHShell = CreateObject("WScript.Shell")
  'Get the desktop folder path
  strDesktop = WSHShell.SpecialFolders("Desktop")
  'Make the shortcut in the desktop folder
  Set objShortCut = WSHShell.CreateShortcut(strDesktop & "\" & strName & ".lnk")
  'The target is the file or folder the shortcut activates
  objShortCut.TargetPath = MyPath
  'Give the shortcut an icon from an exe dll or icon file.
  'if you use an exe or dll you must specify the index of the icon like this:
  'objShortCut.IconLocation = "C:\Program Files\AutoCAD\acad.exe, 0"
  objShortCut.IconLocation = "Moricons.dll, 40"
  'Set a hot key combo
  objShortCut.Hotkey = "ALT+CTRL+F"
  'Add a description
  objShortCut.Description = "Sample short cut."
  'You have to save it, its a file
  objShortCut.Save
End Sub

'And here is a fast test:
Public Sub TEST_vbaShortcut()
  vbaShortcut "C:\WINDOWS\TEMP", "Temp Folder"
End Sub
'End code block