Sub Click(Source As Button)
Dim WshShell As Variant
Dim oShellLink As Variant
Set WshShell = CreateObject("Wscript.Shell")
Set oShellLink = WshShell.CreateShortcut("D:\name_der_verknüpfung.lnk")
oShellLink.TargetPath = "C:\name_der_datei.txt"
oShellLink.Save
End Sub