Posso solicitar uma caixa de diálogo 'abrir com' usando um script VB?

Question

Estou tentando criar um script VB que primeiro peça ao usuário para escolher um arquivo a ser selecionado e, em seguida, abra automaticamente o arquivo selecionado com um programa predeterminado. Aqui está o código que eu tenho que faz isso automaticamente:

strFileName = "%TARGETPATH%"
Set oShell = CreateObject("WScript.Shell")

oShell.Run "%PROGRAM% ""%TARGETPATH%"""

Isso pode ser feito, e posso obter o script para usar uma caixa de diálogo aberta no estilo do explorador?