Как загрузить веб-страницу сформированную программно в WebBrowser - VB

Формулировка задачи:

Всем привет!

Пишу программку-чат и подумал, что проще всего будет сделать окно сообщений используя

WebBrowser

.. но вот не задача обнаружил что невозможно загрузить через метод

Navigate

страницу большого объема. Сначало думал, что допускаю ошибки в разметке страницы.. нооо нет это оказался какой-то глюк. Вот конкретный пример:

                    Листинг программы
                
Private Sub Command1_Click()
WebBrowser1.Navigate App.Path & "\error.html"
End Sub

- в этом случае

WebBrowser

загрузит вашу страничку без проблем, но если взять текст странички..

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command2_Click()
Dim Html As String
Html = ReadTXT(App.Path & "\error.html")
WebBrowser1.Navigate Html
End Sub
 
Function ReadTXT(File As String) As String
Dim fso As Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim iline As String
Dim txt As String
On Error Resume Next:
SetAttr File, (vbNormal)
If fso.FileExists(File) Then
    Open File For Input As #115
      Do While Not EOF(115)
       Line Input #115, txt
       iline = iline & txt & Chr(13)
      Loop
    Close #115
    ReadTXT = iline
End If
'SetAttr File, (vbSystem Or vbHidden)
End Function

- то кукишь! Если страница довольно большая (начиная наверно с 2 кбайт), она не будет обрабатываться!

Подскажите, пожалуйста, как это обойти?

Или придется тупо сохранять страницу и обращаться к ней по ссылке?

Для примера этой ошибки прилагаю проект-пример

Решение задачи: «Как загрузить веб-страницу сформированную программно в WebBrowser»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
Dim Html As String
Html = ReadTXT(App.Path & "\error.html")
Me.WebBrowser1.Navigate "about:blank"
Me.WebBrowser1.Document.Write Html
Me.WebBrowser1.Refresh
End Sub