Sub CreateNotepadShortcut()
    Dim objWSH          As Object
    Dim objShortCut     As Object
    Dim strPath         As String
 
'----If Early Binding set a referece to Windows Script Host Object Module--
    'Dim objWSH As New IWshRuntimeLibrary.IWshShell_Class
    'Dim objShortCut As IWshRuntimeLibrary.IWshShortcut_Class
'==========================================================================

'----Late Binding----------------------------------------------------------
    Set objWSH = CreateObject("WScript.Shell")
'==========================================================================

    strPath = objWSH.SpecialFolders("Desktop") & "\" & "Notepad.lnk"
    Set objShortCut = objWSH.CreateShortcut(strPath)
    With objShortCut
        .TargetPath = Environ("WINDIR") & "\" & "notepad.exe"
        .Description = "Shortcut to Notepad"
        .IconLocation = "C:\Windows\System\Shell32.dll,5"
        .RelativePath = "C:\Temp"
        .WorkingDirectory = "C:\"
        .Hotkey = "Ctrl+Alt+C"
        .Save
    End With
 
    Set objWSH = Nothing
    Set objShortCut = Nothing
End Sub