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

Формулировка задачи:

Вечер добрый, появилась необходимость узнать программным путём объект ярлычка. не подскажите как?

Решение задачи: «Вытащить путь к файлу с ярлыка .lnk»

textual
                            Листинг программы 
                        

                            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
                        