exportar a excel

[laudrup]

Hola
Tengo el siguiente código para exportar a excel información de una base de datos sql server

Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
objSpreadSheet.Cells.Font.Name = "Arial"
objSpreadSheet.Cells.Font.Size = 9

//incluir las cabeceras
Do while not RS.EOF
objSpreadsheet.Cells(iRow, iCol).Value = UCASE(RS("enunciado"))
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
iCol = iCol + 1
RS.MoveNext
Loop

//incluir los datos
Do while not RS3.EOF
iRow = iRow +1
iCol = 1
Do while not RS4.EOF
respuesta = RS4("respuesta")
objSpreadsheet.Cells(iRow, iCol).Value = respuesta
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
iCol = iCol + 1
RS4.MoveNext
Loop
RS5.Close
RS3.MoveNext
Loop

El caso es que la exportación funciona correctamente.Pero los valores de cada campo provienen de un formulario,y en el campo "comentarios" si el usuario pulsa "Enter" para escribir varia lineas,a la hora de exportarlo me coloca cada línea del comentario en una celda diferente.
Es decir,si el usuario escribe 3 lineas separadas por enter al exportarlo me colca 6 celdas,una para cada linea y una en blanco en medio.
Alguien sabe como eliminar esto?
Gracias

[laudrup]

Si hago un replace de
respuesta = replace(respuesta,vbCr,"*")
Me elimina las celdas en blanco que coloca en medio,pero si me sigue colocando cada linea en una celda diferente.
Como coloco todo el texto en una sola celda?

[AlZuwaga]

Probá con esto y decime si así iría:

respuesta = replace(respuesta,vbCrLf,"*")