テキストファイルを指定行だけ読み込み、表示したい

Question

前提・実現したいこと

vb初心者です。
テキストファイルを指定行読み込んでlistBoxに表示し、なんらかの操作(ボタン等)でその続きの指定行を読み込むというのを実現させたいです。

発生している問題・エラーメッセージ

読み込んで配列に入れたつもりだったのですが、返ってきたのはファイルのパスで中身は返ってきませんでした。

該当のソースコード

Private Function line_read(path As String, num As Integer) As String()
        Dim moji(num) As String
        Console.WriteLine(num)

        For i = 0 To num - 1
            moji(i) = sr.ReadLine()
        Next

        Return moji
End Function

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ofd As New OpenFileDialog
        ofd.InitialDirectory = "D:\"
        ofd.Filter = "テキストファイル(*.txt)|*.txt|すべてのファイル(*.*)|*.*"
        ofd.Title = "ファイル選択"
        ofd.FilterIndex = 1
        ofd.RestoreDirectory = True

        If ofd.ShowDialog = DialogResult.OK Then
            fname = ofd.FileName
            filename = fname.Insert(fname.IndexOf("."), "_cp")

            File.Copy(fname,filename,True)
            sr = New StringReader(filename)
            Dim a As String() = line_read(filename, 5)

            ListBox1.Items.AddRange(a)
        End If

End Sub

試したこと

上記のプログラムのListBox1.Items.AddRange(a) を　ListBox1.Items.Add(a(0))にしてみたところ
D:\test_cp.txt　がリストに入り、Add(a(1))にすると、ArgmentNullExceptionが発生しました。

Comments

[Zuishin]

これ、コンパイルはできますか？ できそうにないように見えますが。

Answer 1

ファイルから読み込むのはStringReaderではなくStreamReaderです。
StringReaderだと、filenameという文字列（今回の場合はファイル名が格納されている）から読み込みます。
ですので、1行しかデータが存在しないので、a(0)はファイル名、a(1)でエラーとなります。

Comments

[kakappa_kappa]

回答ありがとうございます。StreamReaderの方で試してみます！