problemas con funciones

[Adler]

Prueba esto, seguro que te funciona

Código:

Dim cad
Function reemplaza(str,cambia)
cad = trim(str)
Select Case cambia
Case 0
cad = replace(cad,"\n","<br>")
Case Else 
cad = str
End Select
reemplaza = cad
End Function

Suerte