Yo pongo un separador + " --> " + entre registro y registro de una consulta a RDBMS y con la función siguiente lo separo.
Function vStringToArray( sCadenaPar As String, sSepPar As String ) As Variant
%REM
TÍTULO: vStringToArray
PROPÓSITO: Convertir una cadena en un Array
EJEMPLO DE LLAMADA: vRes = vStringToArray (sOrigen, sCaracter)
ARGUMENTOS:
sCadenaPar: String que identifica la cadena que contiene los valores con separador, y que transformaremos en array
sSepPar: String que identifica el separador que emplearemos para separar los valores de sCadenaPar y crear el array
VALOR RETORNADO: Variant
FUNCIONES/SUBRUTINAS UTILIZADAS: Ninguna
%END REM
Dim nLong As Integer, i As Integer, nL As Integer, nLimSup As Integer
Dim sValor As String, sSilaba As String
Redim vRet(0 To 0 ) As Variant
nLong = Len( sCadenaPar )
nL = Len( sSepPar )
nLimSup = 0
sValor = ""
i = 1
Do While i <= nLong
sSilaba = Mid( sCadenaPar, i, nL )
If sSilaba <> sSepPar Then
sValor = sValor + Mid( sSilaba, 1, 1 )
i = i + 1
Else
Redim Preserve vRet( 0 To nLimSup) As Variant
vRet( nLimSup ) = sValor
nLimSup = nLimSup + 1
sValor = ""
i = i + nL
End If
Loop
If sValor <> "" Then
Redim Preserve vRet( 0 To nLimSup) As Variant
vRet( nLimSup ) = sValor
End If
vStringToArray = vRet
End Function