Manipulating MS word. Can this be imporved?

Option Strict On
 
Imports Word = Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices
 
Public Class BuildTimeSheet
 
#Region "Constants"
    'Template Consts
    Private Const TimeSheetLocation As String = "path"
#End Region
 
    ' TODO: Check template exists
    Public Sub BuildTimeSheet(ByVal newDate As List(Of String))
 
        Dim objWdDoc As Microsoft.Office.Interop.Word.Document
        Dim objWord As Microsoft.Office.Interop.Word.Application
 
        objWord = CType(CreateObject("Word.Application"), Word.Application)
        objWdDoc = CType(CreateObject("Word.Document"), Word.Document)
 
        Try
            objWdDoc = objWord.Documents.Add(TimeSheetLocation)
            objWord.Visible = True
 
            'Insert asserted text fields to correct bookmarks in template
            With objWdDoc.Bookmarks
                'Add dates to word document
                .Item("MondaysDate").Range.Text = newDate(6)
                .Item("TuesdaysDate").Range.Text = newDate(5)
                .Item("WednesdaysDate").Range.Text = newDate(4)
                .Item("ThursdaysDate").Range.Text = newDate(3)
                .Item("FridaysDate").Range.Text = newDate(2)
                .Item("SaturdaysDate").Range.Text = newDate(1)
                .Item("SundaysDate").Range.Text = newDate(0)
            End With
 
        Catch ex As COMException
            MessageBox.Show(ex.Message)
        Catch ex As Exception ' Swallows all exceptions
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class