Powerpoint VisualBasic Script

Sub move()
    ActivePresentation.Slides(3).MoveTo ToPos:=1
End Sub