title: Cannot use parentheses when calling a Sub Error 800A0414 VBS
body: <p>I am getting the 800A0414 error in lines 7 and 12 of this script:</p>
  
  <pre><code>Module Module1
  
    Dim p
  
      Sub Main()
          CreateObject("Wscript.Shell").Run("program.bat", 0, True)
  
          p = Process.GetProcessesByName("program")
          If p.Count &gt; 0 Then
              WScript.Sleep(300000)
          Else
              CreateObject("Wscript.Shell").Run("program clean up.bat", 0, True)
          End If
  
      End Sub
  
      Private Function WScript() As Object
          Throw New NotImplementedException
      End Function
  
  End Module
  </code></pre>
  
  <p>I am trying to run a batch script, that starts a process, then wait until the process terminates, then run another batch script. I also do not want any command boxes being shown. If their is a easier way please let me know.</p>
  
  <p>Thanks for your help</p>