なぜかHtmlを開くとフリーズする。

こんにちは。
はじめましてごうです。

今作っているソフトについてなんですが、VB2008でフォームにテキストボックスとプログレスバーとメニューを配置してメニュー内の"開く"でhtmlを無理やり?テキストで開かせてるんですが、複数ﾌｧｲﾙ
あるうちの一つ(他の複数のhtmlもタグ構成はまったく同じです。)しかちゃんと読み込んでくれません。　あとのﾌｧｲﾙは全て応答がなくなりました。
とでて終了します。　いろいろ参考にしてプログラムを作ったので原因がまったく分かりません。
どう改善したらいいかご教授お願いします<(_ _)>
以下プログラムです。

Private Sub ChatLogOpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChatLogOpenToolStripMenuItem.Click
        Dim FileName As String
        Dim FileNum As Integer
        Dim strbuff As String

        ProgressBar1.Visible = True
        ProgressBar1.Value = 0

        TextBox1.Text = ""

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            FileName = OpenFileDialog1.FileName
        Else
            Exit Sub

            ProgressBar1.PerformStep()
            Application.DoEvents()
        End If
        FileNum = FreeFile()
        FileOpen(FileNum, FileName, OpenMode.Input)

        Do Until EOF(FileNum)
            strbuff = LineInput(FileNum)
            TextBox1.Text = TextBox1.Text & strbuff & vbCrLf
            ProgressBar1.Value = ProgressBar1.Maximum

        Loop
        FileClose(FileNum)
    End Sub

こんにちは

UPされたソースは検証してないのですが、一発でRichTextBoxに読み込ましたらどうですか？
開き方は、お隣の「OpenFileDialogで開けない」スレッドに書きました。
るきおさんも別方法を書かれています。

RichTextBoxで２つのファイルを開いてみましたが、問題は発生しませんでした。

neptuneさんありがとうございます^^
RichTextBoxでもういちどやって見たいと思います^^
ありがとうございました^^