Вытащить путь к файлу с ярлыка .lnk

MsgBox CreateObject("WScript.Shell").CreateShortcut("ПутьИмяСуществующегоЯрлыка.lnk").TargetPath

Option Explicit
Sub CreateShortcut()
'Пример создания ярлыка к файлу/интернет-странице
Dim WshShell As Object, oShellLink As Object, oUrlLink As Object, strDesktop As String
Set WshShell = CreateObject("WScript.Shell")
 
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk") 'Имя ярлыка
 
'Создание ярлыка
oShellLink.TargetPath = "e:\2\test2.exe" 'Путь к объекту
oShellLink.WindowStyle = 1 'Стиль окна
oShellLink.Hotkey = "CTRL+SHIFT+F" 'Вызов через комбинацию горячих клавиш
oShellLink.IconLocation = "%windir%\System32\shell32.dll,43" 'Вид значка
oShellLink.Description = "Shortcut Script" 'Комментарий к ярлыку
oShellLink.WorkingDirectory = strDesktop 'Имя рабочего каталога
oShellLink.Save 'Создать
 
'Создать ярлык к интернет-странице
Set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save
 
Set WshShell = Nothing: Set oShellLink = Nothing: Set oUrlLink = Nothing
End Sub

Sub GetShortcutInfo()
'Пример получения информации из файла-ярлыка lnk (на рабочем столе)
Dim TargetPath$, WindowStyle%, Hotkey$, IconLocation$, Description$, WorkingDirectory$
With CreateObject("WScript.Shell")
    With .CreateShortcut(.SpecialFolders("Desktop") & "\Shortcut Script.lnk") 'путь к ярлыку
        TargetPath = .TargetPath 'Путь к объекту
        WindowStyle = .WindowStyle 'Стиль окна
        Hotkey = .Hotkey 'Вызов через комбинацию горячих клавиш
        IconLocation = .IconLocation 'Вид значка
        Description = .Description 'Комментарий к ярлыку
        WorkingDirectory = .WorkingDirectory 'Имя рабочего каталога
    End With
End With
Stop
End Sub