Код VBA сделать в VB

Формулировка задачи:

Здравствуйте, сделал я маленькую программу на VBA для PowerPoint, как мне теперь данные код сделать в VB? Нужно чтобы по нажатии на первую кнопку выполнялся данный код (код на VBA):

                    Листинг программы
                
Dim naz As String
naz = InputBox("Название")
    With ActivePresentation.BuiltInDocumentProperties
        .Item(Index:=1).Value = naz
    End With
ActivePresentation.Slides.Range(Array(1, 2, 3, 4, 5)).Select

А по нажатии на вторую кнопку, выполнялся следующий код:

                    Листинг программы
                
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz & ".ppt"
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz & ".pptx"

Как вот нужно изменить данные коды, чтобы они выполнялись для открытой вручную презентацией?

Решение задачи: «Код VBA сделать в VB»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim objPPT As PowerPoint.Presentation
    Dim objSlide As PowerPoint.Slide
    
    Set objPPT = OLE1.object
    Set objSlide = objPPT.Slides(2)
 
    objPPT.Slides(2).MoveTo 1
End Sub
Private Sub Form_Load()
    OLE1.SizeMode = 1 'stretch
End Sub