.net调用lnk文件，执行完lnk指向程序结束后在执行后面的代码，怎样实现？

Question

Private   Sub   Command1_Click()   
          Dim   a   As   String   
          a   =   GetTargetPath("d:\test.lnk")   
          MsgBox   a   
  End   Sub   
    
  Function   GetTargetPath(ByVal   LinkName   As   String)   
          On   Local   Error   Resume   Next   
          Dim   Obj   As   Object   
          Set   Obj   =   CreateObject("Wscript.Shell")   
          Dim   Shortcut   As   Object   
          Set   Shortcut   =   Obj.CreateShortcut(LinkName)   
          GetTargetPath   =   Shortcut.TargetPath   
          Shortcut.Save   
  End   Function