RegExp per pulire da codice HTML

[-AA-]

dunque, nessun problema per pulire del testo da codice HTML con questa funzione:

		Function deleteHTML(strHTML) 
			 Dim objRegExp, strOutput 
			 Set objRegExp = New Regexp 
			 objRegExp.IgnoreCase = True 
			 objRegExp.Global = True 
			 strOutput=strHTML 
			 objRegExp.Pattern = "<[^>]*>" 
			 strOutput = objRegExp.Replace(strOutput, "") 
			  
			 deleteHTML = strOutput 
			 set objRegExp = Nothing 
		End Function

La quale però presenta un problema ... se io nel codice HTML ho dei
... mi "incolla" le parole
tipo:


prova del
testo pulito</p>

viene così
prova deltesto pulito

come ovviare questa cosa includendo 1 riga nella funzione che ho scritto sopra?