Guardar datos de lista

[Koudelka]

Veamos si lo he entendido bien, digamos que yo pongo lo siguiente (sin el msgbox):

Dim BColumn As Long
Dim Row As Long
Dim Col As Long
Dim strTemp As String

' almacenamos el valor de la propiedad
' Columna dependiente
BColumn = Me.Lista.BoundColumn
' recorremos todos los elementos
For Row = 0 To Me.Lista.ListCount - 1
For Col = 1 To Me.Lista.ColumnCount
' cambiamos la columna dependiente a
' la que estemos actualmente
Me.Lista.BoundColumn = Col
' obtenemos su valor y lo escribimos
strTemp = strTemp & Me.Lista.ItemData(Row) & " | "
Next
' quitamos el último "|"
strTemp = Left(strTemp, Len(strTemp) - 3)
strTemp = strTemp & vbCrLf
Next
' volvemos a poner la propiedad Columna
' dependiente igual que al principio
Me.Lista.BoundColumn = BColumn


Ahí estaría seleccionando todo lo de la lista si no me equivoco no?, si es así cómo hago para que me lo guarde en el campo memo? (pongamosle que se llama memo para aclararnos XD)