ファイルを読み込み処理をして復帰値を返したい。

前提・実現したいこと

処理を開始して、ファイル選択ダイアログを開き、ファイルの読み込み処理をする（引数１ファイル名、引数２ファイル内容）返り値ｎ（読み込んだ行数、-１読み込みできない、-２　99999行を超えている）
復帰値が－1の場合、エラーメッセージを返す。
復帰値が－2の場合、エラーメッセージ２を返す。
そのどちらでもない場合、リストビューにそれぞれパスとデータを表示する。
ファイルを開くときは、ストリームリーダーを使う。

ストリームリーダーを使いダイアログからファイルを選択するやり方。
復帰値の返し方。
を教えてもらえないでしょうか。
現在はここまでしか作れていないのですが、解説してくださる方いますでしょうか？
よろしくお願いいたします。

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

エラーメッセージ

該当のソースコード

VB
1''' <summary>
2    ''' 比較元読み込みボタン押下時処理
3    ''' </summary>
4    ''' <param name="sender"></param>
5    ''' <param name="e"></param>
6    Private Sub Cmp_ori_read_Click(sender As Object, e As EventArgs) Handles Cmp_ori_read.Click
7        'ファイルを開くダイアログボックスを表示する
8        'OpenFileDialog クラスの新規インスタンスを生成
9        Dim openFileDialog1 As New OpenFileDialog
10        With openFileDialog1
11            '起動ディレクトリを設定
12            .InitialDirectory = "c:\"
13            '[ファイルの種類] ボックスに表示される選択肢を設定する
14            .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
15            '最初に表示するフィルター処理オプションを設定する
16            .FilterIndex = 1
17            'ダイアログ ボックスを閉じる前に、現在のディレクトリを復元する
18            .RestoreDirectory = True
19
20            'ダイアログ ボックスを表示          [開く]ボタンが押されたら
21            If openFileDialog1.ShowDialog() = DialogResult.OK Then
22                ''選択したファイルのパスを取得
23                MessageBox.Show(openFileDialog1.FileName & " を選択しました。")
24            End If
25        End With
26    End Sub
27
28    Function File_read(ByVal sfile1 As String, ByVal sfile2 As String) As String
29        If (FileName = False) Then
30            '入力内容が異常の場合E1000を表示
31            MsgBox("ファイルが読み込めません、ほかのファイルを選択してください")
32
33        ElseIf (filename > 99999) Then
34            'ファイルが99999行を超えている場合、E1002を表示
35            MsgBox("99999行を超えています、ほかのファイルを選択してください")
36
37        End If
38    End Function
39
40End Class```ここに言語を入力
41コード