Visual Basic - URGENTE POR FAVOR

POR FAVOR...tengo este problema..al pulsar sobre el boton para que se trasladen los datos existentes en los campos de texto..A WORD me produce un error....dicho error es a consecuencia del "if" check1.ect.....de forma q segun parece no pueden estar dentro del WITH..Y SU END WINTH

SABRIAS DECIRME Q SOLUCION DARLE A ESTE PROBLEMAZO???

UN SALUDO Y GRACIAS


Private Sub Command1_Click()

Dim Documento As New Word.Application
With Documento
'abre un documento
.Application.Documents.Open App.Path & "\ejemplo.doc"

If Check1.Value = True Then
.Documents.Item(1).Bookmarks.Item("M02").Range.Text = "X"

If Check2.Value = True Then
.Documents.Item(1).Bookmarks.Item("M03").Range.Text = "X"

If Check3.Value = True Then
.Documents.Item(1).Bookmarks.Item("M04").Range.Text = "X"

If Check4.Value = True Then
.Documents.Item(1).Bookmarks.Item("M05").Range.Text = "X"

If Check5.Value = True Then
.Documents.Item(1).Bookmarks.Item("M06").Range.Text = "X"


.Documents.Item(1).Bookmarks.Item("M01").Range.Text = Text1.Text



'mostramos documento
.Application.Visible = True


End With

Set Documento = Nothing

End Sub