Tekst_temp = Replace(Tekst_temp,"<","&lt;")
Tekst_temp = Replace(Tekst_temp,">","&gt;")
Tekst_temp = Replace(Tekst_temp,"chr(13)","<BR>")
Tekst_temp = Replace(Tekst_temp,"chr(10)","<BR>")
Tekst_temp = Replace(Tekst_temp,"#","<BR>")

Tekst_temp = Replace(Tekst_temp,Chr(13),"<BR>")
Tekst_temp = Replace(Tekst_temp,"[","<B>")
Tekst_temp = Replace(Tekst_temp,"]","</B>")

i = 1

While not InStr(i,Tekst_temp,"{") = 0
start = CInt( InStr(1,Tekst_temp,"{") )
i = start
slutt = CInt( InStr(start,Tekst_temp,"}") )
hole = mid(Tekst_temp,(start),(slutt-start+1))
if InStr(hole,"$") then
 skille = CInt( InStr(start,Tekst_temp,"$") )
 navn = mid(Tekst_temp,(start+1),(skille-start-1))
 link = mid(Tekst_temp,(skille+1),(slutt-skille-1))
 if Left(link,4) = "www." then
     link = "http://" & link
 end if 'www
 if not InStr(link,"@") = 0 then
     link = "mailto:" & link
 end if '@
 out_var = "<A HREF=""" & link & """>" & navn & "</A>"
 Tekst_temp = Replace(Tekst_temp,hole,out_var,1,1)
else
 link = mid(Tekst_temp,(start+1),(slutt-start-1))
 if Left(link,4) = "www." then
     link = "http://" & link
 end if 'www
 if not InStr(link,"@") = 0 then
     link = "mailto:" & link
 end if '@
 link = "<A HREF=""" & link & """>"
 Tekst_temp = Replace(Tekst_temp,"{",link,1,1)
 Tekst_temp = Replace(Tekst_temp,"}","</A>",1,1)
end if
wend

txtToURL = Tekst_temp
END FUNCTION