Команда Shell ("c:\bla-bla.reg") выдает ошибку, или как открыть файл программой по умолчанию

cmdFOC.SetFocus
If O1.Value = True Then
  If Dir("c:\VIS201.reg") = "" Then
    MsgBox "Рег. файл не найден.", vbExclamation, "Слияние"
    Exit Sub
  Else
    If MsgBox("Слияние файла реестра в автозапуск. Продолжаем?", vbYesNo + vbInformation, "Слияние") = vbYes Then
      Shell ("c:\vis201.reg")
    End If
  End If
End If

Shell "regedit.exe C:\vis201.reg"

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

shell "explorer c:\1.doc"

Private Sub cmdWORD_Click()
 Open ("c:\Print.doc") For Output As #1
  Print #1, TVIEW.Text
   Close #1
    Shell "explorer c:\Print.doc"
End Sub

Shell "rundll32 url.dll, FileProtocolHandler c:\Print.doc", vbNormalFocus

Shell "rundll32 url.dll, FileProtocolHandler ""C:\Documents and Settings\User.MICROSOF-431344\Рабочий стол\Новая папка (2)\Лист Microsoft Excel.xls""", vbNormalFocus

Private Sub Form_Load()
    Shell "rundll32 url.dll, FileProtocolHandler ""https://www.cyberforum.ru/visual-basic/thread1206644-page2.html""", vbNormalFocus
End Sub

Private Sub Form_Load()
    Shell "rundll32.exe shell32.dll RestartDialogEx"
End Sub

Shell "explorer c:\Print.doc"