Visual Basic - Crear acceso directo

Trabajando en Visual Basic con un EXE Estandard:
¿Cómo tengo que hacer para crear un acceso directo de un archivo determinado y colocar dicho acceso directo en una ubicación determinada? (por medio del código)
Muchas gracias

Fijate con esto:

Set loShell=CreateObject("wscript.Shell")
Set loShortcut=loShell.CreateShortcut("C:\MiAccesoDirecto.lnk")

With loShortcut
.TargetPath="MiAplicacion.htm"
.WorkingDirectory="DirectorioDeTrabajo"
.Save
End With