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

今作っているソフトについてなんですが、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