以下のような感じ。
┌──────────────────────────────────────┐
│Option Explicit                                                             │
├──────────────────────────────────────┤
│Call runShortCut()                                                          │
├──────────────────────────────────────┤
│Sub runShortCut()                                                           │
│    Dim x                                                                   │
│    Set x = CreateObject("Shell.Application")                               │
│    x.ShellExecute "C:\xxxx\xxxx\aaaa.lnk"                                  │
│    Wscript.Sleep(1000)                                                     │
│    x.ShellExecute "C:\xxxx\xxxx\bbbb.lnk"                                  │
│    Set x = Nothing                                                         │
│End Sub                                                                     │
└──────────────────────────────────────┘