Excel VBA：関連付けられたファイルを開く/ShellExecuteの使い方

Option Explicit

'関連付けられたファイルを開くAPI
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 Const SW_HIDE = 0   'ウィンドウ非表示
Private Const SW_SHOWNORMAL = 1 '通常の状態で開く
Private Const SW_SHOWMINIMIZED = 2  'ウィンドウ最小化
Private Const SW_SHOWMAXIMIZED = 3   'ウィンドウ最大化
Private Const SW_SHOW = 5   'ウィンドウを現在の位置とサイズで表示
Private Const SW_RESTOR = 6 'ウィンドウを元の位置とサイズで表示

Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

'関連付けられたファイルを開く
Private Sub ExOpenKanrenFile()
    Dim lret As Long
    Dim msg As String
    
    lret = ShellExecute(0, "open", "c:\sitemap.html", vbNull, vbNull, SW_SHOW)
    If lret < 31 Then
         Select Case lret
             Case 0
                 msg = "メモリ不足です。"
             Case ERROR_FILE_NOT_FOUND
                 msg = "ファイルが見つかりません。"
             Case ERROR_PATH_NOT_FOUND
                 msg = "ファイルのパスが見つかりません。"
             Case Else
                 msg = lret & "その他のエラー"
         End Select
         MsgBox msg, 16
     End If
End Sub

Private Sub CommandButton1_Click()
    ExOpenKanrenFile
End Sub