Visual Basic - Ayuda con este codigo para guardar en word

Hola amigos este codigo me lo paso LLE del foro y me parecio muy bueno pero el problema es que en la linea "Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), MSHFlexGrid1.Rows, MSHFlexGrid1.Cols)" me da el siguiente error en tiempo de ejecucion "No coinciden los tipos" y no se por que. Agradeceria su ayuda, desde ya muchas gracias

Private Sub Command1_Click()
'Variable de tipo Aplicación de Word
Dim MSWord As Word.Application
'Variable de tipo documento de Word
Dim Documento As Word.Document
Dim Parrafo As Table

'F es para recorrer la Fila y C para la Columna
Dim F, C As Double

'nuevo objeto para llamar a la aplicación
Set MSWord = New Word.Application
'nuevo documento de word
Set Documento = MSWord.Documents.Add
'a continuación, creamos una tabla dentro del nuevo documento
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), MSHFlexGrid1.Rows, MSHFlexGrid1.Cols)

'hacemos visible el documento de word
MSWord.Visible = True

'recorremos el Flex grid para agregar las columnas y filas a nuestra tabla
For C = 0 To MSHFlexGrid1.Cols - 1
'agregar columnas
Parrafo.Cell(0, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(0, C)
'agregar filas
For F = 0 To MSHFlexGrid1.Rows - 1
Parrafo.Cell(F + 1, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(F, C)
Next F
Next C

'Eliminamos los objetos
Set MSWord = Nothing
Set Documento = Nothing
Set Parrafo = Nothing

End Sub