Problema al exportar datos de un MSFlexGrid a Excel

Lo que pasa es que cuando exporto los datos del msflexgrid a excel los rut que empiezan con 0 no los coloca lo salta
Ejemplos
El rut es 09837363 y en el excel me coloca 987363 sin el 0
Por que pasa eso ayuda por favor
Private Sub exportar_Click()
Dim i As Integer, j As Integer
Dim objExcel As Excel.Application
Dim HojaExcel As Excel.Worksheet
Set objExcel = Excel.Application
objExcel.Workbooks.Add
Set HojaExcel = objExcel.ActiveWorkbook.Worksheets(1)
For i = 1 To MS.Rows - 1
For j = 1 To MS.Cols - 1
objExcel.Cells(i, j) = MS.TextMatrix(i, j)
Next
Next
objExcel.Visible = True
Set HojaExcel = Nothing
Set objExcel = Nothing
End Sub
Private Sub llenar2()
MS.TextMatrix(0, 1) = "Periodo"
MS.TextMatrix(0, 2) = "rut"
MS.TextMatrix(0, 3) = "nombre"
MS.TextMatrix(0, 4) = "cpais"
MS.TextMatrix(0, 5) = "pais"
MS.TextMatrix(0, 6) = "monto"
fil = 1
Do While Not m1.EOF
MS.Rows = MS.Rows + 1
MS.TextMatrix(fil, 1) = m1!periodo
MS.TextMatrix(fil, 2) = m1!rut
MS.TextMatrix(fil, 4) = m1!codigopais
'MS.TextMatrix(fil, 5) = pp!pais
MS.TextMatrix(fil, 6) = m1![Suma De MONTO]
m1.MoveNext
fil = fil + 1
Loop
End Sub
Gracias