ドキュメント内のすべてのサイトは、AeccDocument.Sites コレクション(AeccSites 型のオブジェクト)に格納されます。AeccSites.Add メソッドは、指定された名前で新しい空のサイトを作成します。
' Create a new site. Dim oSites As AeccSites Set oSites = oAeccDocument.Sites Dim oSite As AeccSite Set oSite = oSites.Add("Sample Site")