Escribir un archivo txt de los datos de un grid

Hola alguien me puede decir si hay alguna forma de optimizar el proceso para
guardar los datos de un grid a un arcivo de texto.

Ya lo intente con esto:

'PARA RECORRER LAS FILAS DEL GRID
For i = 0 To ViewRecords.Count - 1
' PARA RECORRER LAS COLUMNAS DEL GRID
For Each col As DataGridColumnStyle In
Me.dgDatos.TableStyles(0).GridColumnStyles

' SI EL VALOR ES NULO, QUE ESCRIBA UN CERO
If IsDBNull(Me.dgDatos.Item(i, j)) Then
cadena = cadena & "0" & vbTab
Else ' SI EL VALOR ES IGUAL A "No se encontro" QUE
ESCRIBA UN CERO
If CStr(Me.dgDatos.Item(i, j)) = "No se encontró"
Then
cadena = cadena & "0" & vbTab
Else ' ESCRIBE EL VALOR
cadena = cadena & Me.dgDatos.Item(i, j) & vbTab
End If
End If
' INREMENTA A j PARA RECORER LAS COLUMNAS
j = j + 1
Next
cadena = cadena & vbCrLf ' FIN DE LINEA
' j=0 PARA VOLVER A EMPEZAR A RECORRER LAS COLUMNAS
j = 0
Next


Pero cuando se manejan demaciados registros (mas de 10000) el proceso se
vuelve tardio, esdecir, muy lento.
hay alguna forma de mejorarlo.

Por su atencion Gracias.

ATT.

Jesús López
jesus@desitecsa.com.mx
chuylor@hotmail.com