como faço para o meu programa executar um programa uma pasta exemplo

o meu programa fai executar na pasta autorum do cd. e vai ter varias pasta na raiz principal, programas, utilitarios..., eu fez assim só que não deu certo alguem poderia me ajudar

 

exp.

            teste1 = App.Path & ".."      'sair pasta autom           
            teste2 = teste1 & App.Path & "programas"  ' entra na pasta do progra
            Setup = teste2 & "arquivo.exe"    'enviar pra ser executado

Tentou com SHELL

Exemplo

 

Shell "C:MEUPROGRAMATESTE.EXE"

 

Alan

Já está resolvido a minha dúvida

obrigado a todos vcs.

 

on Error Resume Next
    Select Case Button.Key
        Case "pro_001"
            Me.lbl_001.Caption = "DreamWeaver MX-Pt"
            imagens_003.Picture = imagens_001.ListImages(1).Picture
            ico_setup = icons_32x32.ListImages(1).Picture
            lbl_setup.Caption = "Click no icone para iniciar a instalação"
            lbl_keygen.Caption = "Depois de intalar use este crack"
            sair = App.Path & ".."   'sai da minha pasta
            Setup = sair & "mx-2002-ptpro_001setup.exe"   'entra em outra pasta fora da minha
            
        Case "pro_002"
            Me.lbl_001.Caption = "Flash MX-Pt"
            imagens_003.Picture = imagens_001.ListImages(2).Picture
            ico_setup = icons_32x32.ListImages(2).Picture
            lbl_setup.Caption = "Click no icone para iniciar a instalação"
            lbl_keygen.Caption = "Depois de intalar use este crack"
            sair = App.Path & ".." 

            Setup = sair & "mx-2002-ptpro_002setup.exe" ...............

---------------------------------------------------------

Private Sub ico_setup_Click()
On Error Resume Next
    Call Shell(Setup, vbNormalFocus)

End Sub