evitar caracteres al hacer saltos de linieas

[guif]

lo intento hacer asi:

Código:

Do While Not rs.EOF
        list1.AddItem ("AREA INCIDENCIA: ") + (rs("AREA"))
        list1.AddItem ("PERSONA: ") + (rs("NOMBRE")) & " " & (rs("APELLIDOS"))
        list1.AddItem ("DATA: ") & (rs("F_H_ALTA")) & vbCrLf
        'list1.AddItem ("DESCRIPCIÓ: ")
        'list1.AddItem (rs("DESCRIPCION"))
       list1.AddItem ("DESCRIPCIÓ: ") + (ReemplazarSaltos(rs!descripcion))
        list1.AddItem ("________________________________") & vbCrLf
rs.MoveNext
copiame

con la funcion:

Código:

 Function ReemplazarSaltos(Text1)
ReemplazarSaltos = Replace(Replace(Text1, Chr(13), "<br>", 1, -1), Chr(10), "", 1, -1)
End Function

puede afectar la funcion copiame() que tengo??? primero lo paso a un listbox y luego a un textbox...

Código:

Private Sub copiame()
Dim i%, strText$
    For i = 0 To list1.ListCount - 1
        strText = strText & list1.List(i) & vbNewLine
    Next i
    Text1.Text = strText
End Sub