Visual Basic - como exportar de vsFlexGrid a excel

como exportar datos de vsFlexGrid a excel

If grdConInfDig.ApproxCount < 1 Then Exit Sub
CdlgExportar.DefaultExt = ".xls"
CdlgExportar.Filter = "Archivos de Excel (*.xls)|*.xls|"
CdlgExportar.FilterIndex = 1
CdlgExportar.ShowSave
If CdlgExportar.FileName = "" Then Exit Sub
On Error GoTo Error
Screen.MousePointer = vbHourglass
grdConInfDig.ExportToFile CdlgExportar.FileName, False
MsgBox "Exportación Archivo: " & CdlgExportar.FileName, vbInformation, Caption
On Error GoTo 0
GoTo Salida
Error:
MsgBox "Error : " & Err.Number & Chr(13) & Err.Description
GoTo Salida
Salida:
Screen.MousePointer = vbDefault


utiliza el control command dialog