Create a shortcut

Public Sub CreateShortcut(Destination As String, Name As String, _
  Target As String, Parameters As String)
Dim Shell As Object 'WshShell
Dim NewShortcut As Object 'WshShortcut
        
  Set Shell = CreateObject("wscript.shell.1")
  Set NewShortcut = Shell.CreateShortcut(Destination & Name & ".lnk")
  NewShortcut.TargetPath = Target
  NewShortcut.Arguments = Parameters
  NewShortcut.Save
End Sub