Создать ярлык через VBA

Question

Интересно, можно ли сделать ярлык с несколькими целями, потому что мой код не работает с 3 путями.Ниже код и скриншоты.

Можете помочь?Спасибо всем заранее

https://ibb.co/pWs87P9

Я хочу что-то, как на скриншоте ниже (я сделал это вручную)

https://ibb.co/9tH4Rx5

C: \ Windows \ System32 \ notepad.exe "C: \ Temp Logs \ app.vbs" "C: \ Temp Logs \ try.bat"

Sub aa()


Dim sShortcutLocation As String


sShortcutLocation = "C:\Temp Logs\AA.lnk"


With CreateObject("WScript.Shell").CreateShortcut(sShortcutLocation)
    .TargetPath = "C:\Windows\System32\notepad.exe ""C:\Temp Logs\app.vbs"""
    .Arguments = "C:\Temp Logs\try.bat"
    .Description = "Shortcut to the file"
     .Save
End With


End Sub