title: Create a folder in Outlook: error 800A0401 - Expected End of Statement
body: <p>I created a .vbs file to create a folder in Outlook.</p>
  
  <p>I copied most of the script out of <a href="http://msdn.microsoft.com/en-us/library/office/bb220308%28v=office.12%29.aspx" rel="nofollow noreferrer">MSDN</a> and get</p>
  
  <blockquote>
    <p>"Expected End of Statement" error code 800A0401</p>
  </blockquote>
  
  <pre><code>Option Explicit
  Dim myNameSpace As Outlook.NameSpace
  Dim myFolder As Outlook.Folder
  Dim myNewFolder As Outlook.Folder
  
  Set myNameSpace = Application.GetNamespace("MAPI")
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
  Set myNewFolder = myFolder.Folders.Add("Postini")
  
  Wscript.Echo "Folder created"
  Wscript.Quit
  </code></pre>
  
  <p>Never created a .vbs script before.</p>
  
  <p>Windows 7 64-bit and Outlook 2010.  Running as local administrator.</p>