Visual Basic - Urg. como exportar registros de un MSHFG a Excel

Señore Programadores

Cordial saludo

Necesito con urgencia saber como puedo exportar 15000 registros de un MSHFGrid a Excel sin utilizar copiar y pegar

Espero que me puedan colaborar

Gracias

Yo lo hago de la sigueinte forma no se si hay otra forma mejor

public sub cmdexportar_click
'se agrega la referencia a excel
'en proyecto-->>referencias-->>seleccionas
'microsoft windows excel
dim xhoja as new excel.application
xhoja.woorkbooks.add
for i=1 to mshflexgrid1.rows-2
'suponiendo q la primera columna sea la cero
for j=0 to mshflexgrid1.cols-1
xhoja.cells(i,j+1)=mshflexgrid1.textmatrix(i,j)
next
next
xhoja.visible=true
set xhoja=nothing
end sub

espero te sirva saludos desde venezuela

Muchas Gracias Ivan