Simplemente :

Dim X As Long
X = Shell("rundll32.exe AppWiz.Cpl,NewLinkHere " & "c:\MiDirectorio\", 1)

Siendo MiDirectorio el directorio donde queremos que quede el acceso directo. Debe acabar en barra (\).