Código:
Private Sub GridAExcel(grid As MSFlexGrid)
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
With grid
For i = 0 To .Rows - 1
For j = 1 To .Cols - 1
oExcel.Cells(i + 1, j) = .TextMatrix(i, j)
Next j
Next i
End With
oExcel.Visible = True
Screen.MousePointer = vbDefault
End Sub
Para llamar al procedimiento le pones como parámetro el nombre del Grid