+rep smells good

Sub CreateSecurityAndPatrolVesselPresentation()
Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object
Dim slideIndex As Integer

' Create a new PowerPoint application
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

' Create a new presentation
Set pptPresentation = pptApp.Presentations.Add

' Slide 1: Title Slide
slideIndex = 1
Set pptSlide = pptPresentation.Slides.Add(slideIndex, ppLayoutTitle)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Security and Patrol Vessel"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "An Overview"

' Slide 2: Introduction
slideIndex = slideIndex + 1
Set pptSlide = pptPresentation.Slides.Add(slideIndex, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Introduction"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "Security and patrol vessels play a critical

+rep i love being his backpack

+rep good player

-rep cheater

+rep good player nice person