Abrir link com determinado programa

[pedro009]

Ola queria desenvolver um programa, que ao clicar num botão abra um link do programa que eu quiser, ja tive a pesquisar e não achei o codigo, por favor, alguém me pode dizer como se faz isso, obrigado.

[Stradivarius]

Sub Botão1_Click()
wProg = InputBox("Programa")
If wProg <> "" Then
Shell (wProg)
End If
End Sub