Poner un salto de línea para texto.

[Muzztein]

variable = replace(variable,chr(10),"<br />")


Para que estudies

Función Replace
Devuelve una cadena en la que una subcadena se ha sustituido por otra subcadena un número de veces especificado.

Replace(expresión, buscar, reemplazarCon[, inicio[, número[, comparar]]])

Argumentos
expresión

Requerido. Expresión de cadena que contiene la subcadena que se va a reemplazar.

buscar

Requerido. Subcadena que se busca.

reemplazarCon

Requerido. Subcadena de reemplazo.

inicio

Opcional. Posición dentro de expresión donde va a comenzar la subcadena de búsqueda. Si se omite, se supone 1. Se debe utilizar junto con número.

número

Opcional. Número de sustituciones de subcadena que se va a realizar. Si se omite, el valor predeterminado es -1, que significa hacer todas las sustituciones posibles. Se debe utilizar junto con inicio.

comparar

Opcional. Valor numérico que indica el tipo de comparación que se va a utilizar cuando se evalúen subcadenas. Consulte la sección Valores para ver los valores. Si se omite, el valor predeterminado es 0, que significa realizar una comparación binaria.

Valores
El argumento comparar puede tener los siguientes valores:

Constante Valor Descripción
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación textual.


Valores de retorno
Replace devuelve los siguientes valores:

Si Replace devuelve
expresión es de longitud cero Cadena de longitud cero ("").
expresión es Null Un error.
buscar es de longitud cero Copia de expresión.
reemplazarcon es de longitud cero Copia de expresión con todas las apariciones de buscar eliminadas.
inicio > Len(expresión) Cadena de longitud cero.
número es 0 Copia de expresión.


Comentarios
El valor de retorno de la función Replace es una cadena, con sustituciones realizadas, que comienza en la posición especificada por inicio y termina al final de la cadena expresión. No es una copia de la cadena original de principio a fin.

El siguiente ejemplo utiliza la función Replace para devolver una cadena:

Dim MiCadena
MiCadena = Replace("XXpXXPXXp", "p", "Y") ' Una comparación binaria que comienza en el principio de la cadena. Devuelve "XXYXXPXXY".
MiCadena = Replace("XXpXXPXXp", "p", "Y", ' Una comparación textual que comienza en la posición 3. Devuelve "YXXYXXY". 3, -1, 1)