Dim wshshell As Object
  Dim link As Object
  Dim neuerlink As String
 
  Set wshshell = CreateObject("WScript.Shell")
 
  neuerlink = "c:mylink.lnk"
  Set link = wshshell.createshortcut(neuerlink)
  link.TargetPath = "notepad.exe" ' z.B.
  link.save