Report Add Line Breaks When Printing Or Exporting To .pdf/.tif

I have e-mails saved in a SQL database with all HTML formatting information.
To remove all HTML formatting I craeted a function on the RS report:

Public Shared Function removeHtmlChar(ss)
try
Dim l as integer
Dim i as integer
Dim ch as string
Dim x as integer
Dim t as string
t = ""
l=len(ss)
for i=1 to l
ch=mid(ss,i,1)
x=i
if(ch="<") then
x=i
do while(mid(ss,x,1)<>">")
x=x+1
loop
else
t=t & ch
end if
i=x
next
t = t.Replace("nbsp;"," ")
removeHtmlChar = t
catch
removeHtmlChar = ""
end try
End Function

When I look at the report on the screen the report is showed correct.
If I print or export the report it add a lot of line breaks in the e-mail text.
Why does it not print it as it looks at the screen?