А как запустить 'файл.xls' (не ехе) из VB

Формулировка задачи:

РЕБЯТ ОГРОМНЕЙШЕЕ ВАМ СПАСИБО!!! ВЫ СПАСЛИ МОЙ ДИПЛОМ!!!

Решение задачи: «А как запустить 'файл.xls' (не ехе) из VB»

textual
                            Листинг программы 
                        

                            ' *** В теле формы: ***
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
                        