ショートカットのリンク先パスを取得する

ショートカットのリンク先を取得する方法。

ss = "C:\Documents and Settings\hoge\デスクトップ\hoge.xlsのショートカット.lnk"
MsgBox CreateObject("WScript.Shell").CreateShortCut(ss).TargetPath

既にあるのに、CreateShortCutってのがなんか気持ち悪いですが、
大丈夫。勿論、新たにショートカットが作成されたりもしません。