[Resolvido]Botão para instalar aplicativo qualquer com FileDialog

Boa Tarde,
Estou com uma duvida,
Preciso criar um botão que abre um fileDialog do windows
para onde que possa instalar um aplicativo qualquer

Tenho o seguinte código

Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
f.Show

Ele funciona localiza quer arquivo mas quando clico em abrir não acontece nada
Acredito que esta faltando algo

Grato

Olá Danilo Almeida,
Veja a Dica 28 do link abaixo:
https://www.maximoaccess.com/t18227-100-dicas-usandoaccess-atualizado-em-17-10-2016
Abraço

Ola muito obrigado por responder ahteixeira

Mas o que estou precisando é a seguinte forma

Tenho um botão em um formulário onde que ao clicar neste botão
abre a janela do windows que no qual seria fileDialog e com isso eu procure um aplicativo
por exemplo VPN.exe e ao escolher tal aplicativo eu instale o mesmo no computador

Olá, a parte de encontrar o ficheiro ja tem.
Será executar o ficheiro escolhido.
Se a dica não se aplica, pesquise aqui no forum por Shell.
Estou no celular.
Abraço

Boa noite

O comando Shell eu ja sabia
resolvi desta forma
Shell "explorer /n , c:\", vbNormalFocus

porem logico gostaria com a função FileDialog

Por exemplo:
Dim f As Object
Set f = Application.FileDialog(msoFileDialogFilePicker)
Dim varFile As Variant
Dim RetVal

f.Show
With f
.AllowMultiSelect = False
For Each varFile In .SelectedItems
MsgBox varFile
Next varFile 'como essa variável mostra o caminho do arquivo

End With
'Call Shell("varFile", 1) 'E o comando Shell executa arquivos eplo caminho resolvi colocar a variavel aqui, mas não deu certo

Claro se tiver outra ideia ficarei grato assim aprendo mais

Olá, veja se é isso que pretende:

Código:

    Dim f As Object
    Set f = Application.FileDialog(msoFileDialogFilePicker)
    Dim varFile As Variant
    Dim RetVal
    Dim strExe
   
    f.Show
    With f
        .AllowMultiSelect = False
        For Each varFile In .SelectedItems
        strExe = varFile
        Next varFile
    End With
   
    'Metodo 1 (pede confirmação, teoricamente mais seguro)
    'Application.FollowHyperlink strExe
   
    'Metodo 2 (chama direto)
    Call Shell(strExe, 1)


Abraço

Cara Amigo ahteixeira

Muito obrigado ficou do jeito que gostaria

Sucesso para vocês e a todos do Site

Tópico resolvido com sucesso.

Olá Danilo Almeida, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço