度々申し訳御座いません。
以下、現在のソースになります。

    Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View.Click


        If System.IO.File.Exists("C:\VB\Test.csv") = True Then

            Try
                Dim CSVFile As New System.IO.StreamReader("C:\VB\Test.csv", System.Text.Encoding.GetEncoding("Shift-JIS"))
                Dim Items() As String
                Dim Line As String = CSVFile.ReadLine
                Dim Title As String

                ListBox1.Items.Clear()
                Do Until IsNothing(Line)

                    Items = Line.Split(",")
                    Title = Items(0)
                    Line = CSVFile.ReadLine

                    If ListBox1.Items.Add(Title) >= 1000 Then


                        MessageBox.Show("1000を超えています。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Me.Close()
                        Exit Do

                    End If

                Loop

                CSVFile.Close()

            Catch ex As Exception

                MessageBox.Show("エラー", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

        Else

            MessageBox.Show("エラー", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End If

    End Sub