Как из приложения открыть любой документ MS Office?

#Region "Заполняем документами остальными файлами"
            On Error Resume Next
            Dim FilesNamesDoc = My.Computer.FileSystem.GetFiles(
            FolderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.doc", "*.docx", "*.xls", "*.xlsx", "*.txt") 'показываем ВСЕ файлы в папке
 
            For Each FileName As String In FilesNamesDoc
                ListBox6.Items.Add(FileName) 'вместе с путем и расширением
                'ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(FileName)) 'без расширения файла
                ListBox5.Items.Add(IO.Path.GetFileName(FileName))  'Без пути, с расширением
            Next
#End Region
 
    Private Sub ListBox5_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox5.MouseDoubleClick
        ListBox6.SelectedIndex = ListBox5.SelectedIndex
        ListPutFiles = ListBox6.Text 'Полный путь к файлу
 
 
        Try
            Dim oWord As Word.Application
            Dim oDoc As Word.Document
            oWord = CreateObject("Word.Application")
            oWord.Visible = True
            oDoc = oWord.Documents.Add(ListPutFiles)
        Catch
            Dim oExcel As Excel.Application
            Dim oEx As Excel._Workbook
            oExcel = CreateObject("Excel.Application")
            oExcel.Visible = True
            oEx = oExcel.Workbooks.Open(ListPutFiles)
        End Try
 
    End Sub

Process.Start("Здесь путь к файлу \ Имя")