Set WshShell = CreateObject("Wscript.Shell")
  WshShell.Run ("notepad " & Wscript.ScriptFullName)
  WshShell.Run ("%windir%\notepad" & Wscript.ScriptFullName)' This fragment returns the error code from the executed application
  Return = WshShell.Run("notepad " & Wscript.ScriptFullName, 1, TRUE)