Private Function TransferString(ByVal str As String) As String            Str = Str.Replace("<", "&lt;")
            Str = Str.Replace(">", "&gt;")
            Str = Str.Replace("'", "''")
            Str = Str.Replace(" ", "&nbsp;")
            Str = Str.Replace("\n", "<br>")
            Str = Str.Replace("\r\n", "<br>")
            Str = Str.Trim()
            Return str
        End Function