Problemas al exportar de access a excel con comas

[puppe]

HOLA A TODOS!! TENGO UN GRAN PROBLEMA!! QUIERO EXPORTAR DE ACCESS A EXCEL, ESO YA LO TENGO PERO QUIERO HACERLO CON DELIMITADORES ..... LO QUE NECESITO QUE ME AYUDEN ES QUE CON EL CODIGO DE ABAJO YO EXPORTO Y ME EXPORTA LA CONSULTA PERO EN UNA TABLA ASI>

NOMBRE CURSO
JUAN PEREZ MATEMATICA
JUAN PEREZ INGLES
JUAN PEREZ CIENCIAS
JUAN PEREZ MATEMATICA
JUAN PEREZ FISICA
LUIS PAZ FISICA
LUIS PAZ MATEMATICA
LUIS PAZ INGLES
LUIS PAZ INGLES


Y LO QUE YO NECESITO ES QUE ME LO EXPORTE ASI>

NOMBRE CURSO
JUAN PEREZ CIENCIAS, FISICA, INGLES, MATEMATICA
LUIS PAZ FISICA, INGLES, MATEMATICA



SE PODRA????????



ASI ES COMO EXPORTO A EXCEL :

Código:

Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
   
   If Not (rst.EOF And rst.BOF) Then
   
 
        hoja.Range("A2").CopyfromrecordSet rst
        
          
      Dim y As Integer
        Dim iNumCols As Integer
        iNumCols = rst.Fields.Count
        For y = 1 To iNumCols
        hoja.Cells(1, y).Value = rst.Fields(y - 1).Name
    
    Next
    
    
      With hoja.Range("A1").Resize(1, iNumCols)
        .Font.Bold = True
        .EntireColumn.AutoFit
        .Columns("A:Z").AutoFit
        .Interior.ColorIndex = 37
 
        End With
           
    End If

ESPERO QUE ME PUEDAN AYUDAR