Problem med pre och radbryt

Har denna forumkod. Men det skriver inte ut texten exakt som det ser ut. FInns ex två mellanslag så tar den bort dom. Ibland verkar det skrivas ut riktigt. Skriver alltså ut på varje rad och sedan när man markerar texten och vill kopiera å klistrar in i ex notepad så skriver den ut texten på en rad! Vad kan det bero på?

Function Link(strText)
   strText    = Server.HTMLEncode(strText)

   Set regExp = New regexp

   regExp.Global = true
   regExp.IgnoreCase = true

   regExp.Pattern = "\[kod\]" 
   strText = regExp.Replace(strText,"<blockquote><pre><span class=""kod"">Kod:<hr size=""1"" noshade>") 

   regExp.Pattern = "\[/kod\]" 
   strText = regExp.Replace(strText,"<hr size=""1"" noshade></span></pre></blockquote>")

   strText    = Replace(strText, vbCrLf, "<br>") 

   regExp.Pattern = "\[citat=(.*?)\]"
   strText = regExp.Replace(strText,"<b>Citat från $1</b> <table width=""100%"" bgcolor=""#ffffff"" style=""border:1px solid black""><tr><td>")

   regExp.Pattern = "(\[\/citat\])"
   strText = regExp.Replace(strText,"</td></tr></table>")

   regExp.Pattern = "\[color=(.*?)\]"
   strText = regExp.Replace(strText,"<font color=""$1"">")

   regExp.Pattern = "(\[\/color\])"
   strText = regExp.Replace(strText,"</font>")

   regExp.Pattern = "\[img](.*)\[/img\]" 
   strText = regExp.Replace(strText, "<img src=""$1"">")

   regExp.Pattern = "\[(b|/b|i|/i|u|/u)\]" 
   strText = regExp.Replace(strText,"<$1>")

   regExp.Pattern = "\[url=(.*?)\](.*)\[/url\]" 
   strText = regExp.Replace(strText, "<a href=""$1"" target=""_blank"">$2</a>")

   strText    = Replace(strText,"[;)]"," <img src=""bilder/emoticons/smile1.gif""> ")
   strText    = Replace(strText,"[:)]"," <img src=""bilder/emoticons/smile2.gif""> ")
   strText    = Replace(strText,"[:(]"," <img src=""bilder/emoticons/smile3.gif""> ")
   strText    = Replace(strText,"[:o]"," <img src=""bilder/emoticons/smile4.gif""> ")
   strText    = Replace(strText,"[:P]"," <img src=""bilder/emoticons/smile5.gif""> ")
   strText    = Replace(strText,"[:|]"," <img src=""bilder/emoticons/smile6.gif""> ")
   strText    = Replace(strText,"[:z]"," <img src=""bilder/emoticons/smile7.gif""> ")
   strText    = Replace(strText,"&lt;%","<font color=#FF0000>&lt;%</font>")
   strText    = Replace(strText,"%&gt;","<font color=#FF0000>%&gt;</font>")
   strText    = Replace(strText,"http://http://","http://")

   Link = strText 				' Skriver ut texten, uppdelad och fin!
End Function

Har fått tips att jag på nåt sätt ska göra så inga vbCrLf byt mot <br> inom <pre> och </pre>. Men hur gör jag det?!

Nån som vet hur det skulle kunna lösas?