All sites in a document are held in the AeccDocument.Sites collection, an object of type AeccSites. The AeccSites.Add method creates a new empty site with the specified name.
' Create a new site. Dim oSites As AeccSites Set oSites = oAeccDocument.Sites Dim oSite As AeccSite Set oSite = oSites.Add("Sample Site")