Открыть файл программой, ассоциированной с ним

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
                         "ShellExecuteA" _
                (ByVal hWnd As Long, ByVal lpszOp As String, _
                 ByVal lpszFile As String, _
                 ByVal lpszParams As String, _
                 ByVal lpszDir As String, _
                 ByVal FsShowCmd As Long) As Long
 
Public Declare Function GetDesktopWindow Lib "USER32" () As Long
 
Const SW_SHOWNORMAL = 1
 
Const SE_ERR_FNF = 2&
Const SE_ERR_PNF = 3&
Const SE_ERR_ACCESSDENIED = 5&
Const SE_ERR_OOM = 8&
Const SE_ERR_DLLNOTFOUND = 32&
Const SE_ERR_SHARE = 26&
Const SE_ERR_ASSOCINCOMPLETE = 27&
Const SE_ERR_DDETIMEOUT = 28&
Const SE_ERR_DDEFAIL = 29&
Const SE_ERR_DDEBUSY = 30&
Const SE_ERR_NOASSOC = 31&
Const ERROR_BAD_FORMAT = 11&
 
Public Function StartDoc(DocName As String) As Long
 
Dim Scr_hDC As Long
          
        Scr_hDC = GetDesktopWindow()
        
        StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
          
End Function
 
Sub CheckRet(r As Long)
 
Dim Msg As String
 
    If r <= 32 Then
          
       '::: Произошла ошибка
              
       Select Case r
       
            Case SE_ERR_FNF
                Msg = "Файл не найден!"
            Case SE_ERR_PNF
                Msg = "Путь не найден!"
            Case SE_ERR_ACCESSDENIED
                Msg = "Доступ запрещен!"
            Case SE_ERR_OOM
                Msg = "Не хватает памяти!"
            Case SE_ERR_DLLNOTFOUND
                Msg = "DLL не найдена!"
            Case SE_ERR_SHARE
                Msg = "Произошло нарушение защиты для разд. ресурса!"
            Case SE_ERR_ASSOCINCOMPLETE
                Msg = "Неполная или неверная ассоциация для файла!"
            Case SE_ERR_DDETIMEOUT
                Msg = "Истек тайм-аут у сервера DDE!"
            Case SE_ERR_DDEFAIL
                Msg = "Неудачное завершение DDE-транзакции!"
            Case SE_ERR_DDEBUSY
                Msg = "Сервер DDE занят!"
            Case SE_ERR_NOASSOC
                Msg = "Для расширения не найдено ассоциации!"
            Case ERROR_BAD_FORMAT
                Msg = "Неверный формат EXE-файла или испорчен образ EXE-файла в памяти!"
            Case Else
                Msg = "Неизвестная ошибка!"
        End Select
              
        MsgBox Msg, , "Ошибка!!!"
             
    End If
 
End Sub

Sub CheckRet(r As Long)

   RC&=StartDoc("Имя_документа")
 
   CheckRet RC&

Shell "Cmd /C Start """" ""E:\MyFile.Doc""", 0