[Resolvido]Capturar destino de um atalho

Olá pessoal!

Necessito de uma ajuda para o seguinte: tenho um aplicativo que possui uma rotina que cria atalhos e armazena-os em pastas. Acontece que eu queria criar uma rotina que capturasse os destinos destes atalhos para fazer o download dos arquivos ao invés de abri-los.

Alguém sabe como posso capturar com vba o destino de um determinado atalho criado?

Já encontrei:
Public Function GetShortcutTarget(strShortcut As String) As String
Dim objShell As Object, objLink As Object
On Error GoTo ErrHandler

Set objShell = CreateObject("WScript.Shell")
Set objLink = objShell.CreateShortcut(strShortcut)
GetShortcutTarget = objLink.TargetPath

ExitHandler:
On Error Resume Next
Set objLink = Nothing
Set objShell = Nothing
Exit Function

ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Function