Nell'evento click di un pulsante ho messo il seguente codice

codice:
Dim Selection As Word.Selection
Dim wrdMailMerge As Word.MailMerge
Dim wrdMergeFields As Word.MailMergeFields
Dim WordApp As New Word.Application()
Dim WordDoc As Word.Document

WordApp = GetObject(, "Word.Application")
'WordApp.Visible = True
WordDoc = WordApp.Documents.Open("C:\Nuova Cartella\cedolino.doc")
Selection = WordApp.Selection
wrdMailMerge = WordDoc.MailMerge
With wrdMailMerge
    .MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
    .OpenDataSource("C:\Nuova Cartella\Origine.doc") 
    .SuppressBlankLines = True 'bypassa i record vuoti
    .Destination = Word.WdMailMergeDestination.wdSendToNewDocument
    .Execute()

End With
WordApp.WindowState = Word.WdWindowState.wdWindowStateMaximize
WordApp.Windows.Application.ActiveDocument.PrintPreview()
WordApp.ActiveWindow.Caption = "Comunicazione"
WordApp.ActiveWindow.Visible = True 
'WordDoc.ActiveWindow.Visible = True
Selection = Nothing
WordApp = Nothing

facendo il debug sembra che proceda tutto bene tranne che per l'istruzione scritta in rosso che non viene affatto considerata.
Qualcuno sa aiutarmi? dov'è l'errore?