Hola:
Para abrir un archivo con su Aplicación predeterminada, puedes utilizar lo siguiente:
Código VB:
Ver original'--- API para abrir archivo con la aplicacion asociada
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
Después inserta en una rutina tuya ...
Código vb:
Ver original' Carga Archivo con la aplicación asociada. Sin Parámetros.
Dim hProc As Long, Archivo as String
Archivo = "http://www.google.es"
hProc = ShellExecute(Me.hwnd, "Open", Archivo, vbNullString, vbNullString, 1)
If hProc = 31 Then MsgBox "No existe aplicación asociada para abrir archivo"
Saludos