Hola
Primero tienes que declarar la API, por ejemplo en un módulo.
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 cualquier parte del código puedes llamar a la función de la siguiente forma:
Código:
Resul = ShellExecute(Me.hwnd, "Open", rutie, _
"", "", 1)
Donde
rutie es la ruta completa al documento que quieras abrir (cualquier extensión)
--Saludos--