VBasic -> Excel formato celdas

[aavg]

Estoy haciendo una exportacion desde mi base de datos access a formato de excel, el problema viene cuando mi registro contiene valores como "001", "005", etc, al asignarselos a las celdas de excel me los pone numericos solamente "1", "5", lo cual afecta en mis ordenamientos.

Alguien sabe como asignarles el formato de Texto a una celda en excel desde Visual Basic???

Gracias por sus respuestas


Inserto un pedazo de mi funcion:

----------------------------------------------------------------

Código:

Set XlsApl = New Excel.Application
    With XlsApl
        .Workbooks.Add
        Set xlsLibro = .ActiveWorkbook
        
        With xlsLibro.Worksheets(1)
            .Activate          
            
            For X = 1 To RstInfoEmp.RecordCount
                For Y = 1 To RstInfoEmp.Fields.Count
                     'AQUI ASIGNO EL DATO DE MI RECORDSET A LA CELDA
                     'AQUI IRIA LA ASIGNACION DEL FORMATO A LA CELDA
                     'EL PROBLEMA... ¿COMO SE HACE? JEJE  
                    .Cells(X + 1, Y) = RstInfoEmp.Fields(Y - 1).Value
                Next Y
                RstInfoEmp.MoveNext
            Next X
        End With
        .Visible = False
    End With
    If RstInfoEmp.State = 1 Then RstInfoEmp.Close
    
xlsLibro.SaveAs (ADE)
xlsLibro.Close (ADE)
Set xlsLibro = Nothing
Set XlsApl = Nothing