Ciao a tutti,
pur dopo essermi "sparato" un buon numero di discussioni su questo ed altri forum, non sono riuscito a venir fuori dal mio problema.

Tramite una form l'utente del sito (intranet) che sto realizzando, compila una textarea con un articolo da lui redatto e al termine lo registra.

Il mio script recupera il contenuto e lo elabora, ma purtroppo non fa tutto quello che vorrei che facesse, ovvero:
desidero che quando l'utente preme l'invio (return) nella textarea, questo venisse sostituito da un tag "
", ma quando ne preme due o più, questo sostituisse con i tag "</p>

".

Il risultato sperato è questo:

'stringa recupetata
strTesto = "Questa è la prima riga." & vbcrlf &_
vbcrlf &_
"Questa è la terza riga. " & vbcrlf &_
"Questa la quarta."

'risultato
strTesto = "Questa è la prima riga.</p>

"
"Questa è la terza riga.
"
"Questa la quarta."

Così facendo mi basta aggiungere un tag "

" all'inizio del testo e un tag di chiusura "</p>" alla fine e ho ottenuto una corretta formattazione del testo e dei suoi paragrafi.

La funzione che ho scritto per trovare il doppio return è la seguente:
codice:
Function RimuoviDoppioReturn(strTesto)
   Set RegEx = New RegExp
   RegEx.Global = True 
   RegEx.IgnoreCase = True
   RegEx.Pattern = "\r{2,}"
   RimuoviDoppioReturn = RegEx.Replace(strTesto,"</p>

")
   set RegEx = nothing
End function
Ovviamente non funziona. Sapreste darmi qualche suggerimento?

Grazie.