Is it possible to create a shortcut programmatically with VBA ?

If not, how can it be done besides using VBScript ??