Powerpoint VisualBasic Script

Sub add()
    Dim QASlide As slide
    With ActivePresentation
        Set QASlide = .Slides.add(Index:=.Slides.Count + 1, Layout:=ppLayoutBlank)
        QASlide.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect28, _
            Text:="Questions " + Chr$(CharCode:=13) + "Answers", _
            FontName:="Garde Gothic", FontSize:=54, FontBold:=msoTrue, _
            FontItalic:=msoFalse, Left:=230, Top:=125
    End With
End Sub