TargetPatch LinkInLink

Hi
This is my code:
----------------------
dim ObjShell as new WshShell
Sim ObjShortcut as new WshShortcut

Set ObjShortcut = ObjShell.CreateShortcut ("C:\xxx.lnk")
----------------------
' And I Get Folder/File Not Found (ObjShortcut.TargetPath)

k
Coz he Pointing 2 defrant target
What i need 2 do 2 find the target .?? (and not search or Scan)

I moved the Shortcut Taget 2 defrant place (Folder)

Thank you