Como abrir un archivo de un programa previamente instalado

[Insomnia]

Hola

En un modulo declara la función ShellExecute (copia y pega el codigo en un modulo):

Código:

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Luego en el botón, llama a la función incluyendo la ruta completa donde se encuentra el archivo

Código:

Resul = ShellExecute(Me.hwnd, "Open", "C:\prueba1.ham", "", "", 1)
Resul = ShellExecute(Me.hwnd, "Open", "C:\prueba2.ham", "", "", 1)

P.D. Declara en General Resul como Long

Código:

Dim Resul As Long

--Saludos--