Private Sub Command1_Click()
Shell ('C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE C:MyDocu~1Book1-Macro.xls')
End Sub
 

 
' *** В теле формы: ***
Private Const SW_SHOWNORMAL = 1&
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
'
Private Sub Command1_Click()
    Dim appPath As String
    appPath = App.Path
    If Right$(appPath, 1) <> ' ' Then appPath = appPath & ' '
    ShellExecute Me.hWnd, 'Open', appPath + 'Test.xls', '', appPath, SW_SHOWNORMAL
End Sub