Create a document [Visio Macros]

public sub create_document

  dim vis as new visio.application
  dim doc as     visio.document

  set doc = vis.documents.add("")

end sub