Bueno, mira, no se que pueda pasar. Yo lo ejecuto asi en mi pc y me abre el archivo bien.
sinceramente no se que decirte.
Código:
Private Const GWL_WNDPROC = (-4)
Private 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
' El prog. que se fuerza a ejecutarse es un geoworkspace (Geomedia version 4)
Private Sub Command1_Click()
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "C:\pp.xls", "", "", SW_SHOWMAXIMIZED) 'AQUI ABRE UN ARCHIVO GEOMEDIA
End Sub