[Resolvido] tratar enter

estou usando uma fnc daqui do forum mesmo pra tratat os enters e evitar:

tx[enter][enter][enter]tx ->sem tratar

tx[enter]tx -> apos tratar

texto = Replace(texto,chr(10),"<br />", 1, -1, 1)

	while InStr(1, texto, "<br /><br /><br />", vbTextCompare) > 0

texto  = Replace(texto,"<br /><br />","<br />", 1, -1, 1)

	wend

mas agora preciso limpar o enter pós texto

tx[enter][enter][enter]

preciso remover o enter que 'sobra'

como poderia adaptar esta fnc?