Function Html2Text(Str1)
    If isNULL(Str1) Then
       Html2Text=""
       Exit Function
    End If
     Str1=Replace(Str1,"&lt;","<")
     Str1=Replace(Str1,"&gt;",">")
     Str1=Replace(Str1,"<br>",VBcrlf)
     Str1=Replace(Str1,"&quot;",chr(34))
     Str1=Replace(Str1,"&nbsp;"," ")
     Str1=Replace(Str1,"&amp;","&")
  Html2Text=Str1
End Function