Dim MyStreamWriter As New IO.StreamWriter( _
                  Application.StartupPath & "\temp.html", False, _
                  System.Text.Encoding.Default)
                MyStreamWriter.WriteLine(code)
                MyStreamWriter.Close()
 
                Dim MyStreamReader As New IO.StreamReader( _
                  Application.StartupPath & "\temp.html", _
                  System.Text.Encoding.UTF8)
                code = MyStreamReader.ReadToEnd
                MyStreamReader.Close()
 
                RichTextBox1.SelectedText = RichTextBox1.SelectedText + code
                RichTextBox1.Focus()