Una forma es usar el objeto WScript.Shell. De esta forma:
Código vb:
Ver originalDim System As Object
Dim Link As Object
Set System = CreateObject("WScript.Shell")
Set Link = System.CreateShortcut("Ruta donde se creará el Acceso Directo")
Link.Description = "Descripción"
Link.HotKey = "Hotkey (Opcional)"
Link.IconLocation = "Ícono del Acceso Directo"
Link.TargetPath = "Ruta a la que apunta el Acceso Directo"
Link.WorkingDirectory = "Directorio de Trabajo"
Link.Save
Set Link = Nothing
Set System = Nothing