Survey networks are created through the Create method of the AeccSurveyProject.Networks collection.
Dim oSurveyNetwork As AeccSurveyNetwork Set oSurveyNetwork = oSurveyProject.Networks.Create("Net_01")