I read the object browser and its signature.
Dim pptSlide As Slide Set pptSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, pCus