Определить среднее количество слов в строке файла

    'Проверяем среднее количество слов в строке
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String
        Dim OFD As New OpenFileDialog
        With OFD
            .Filter = "Rich Text Format (.rtf)|*.rtf"
            .Multiselect = False
            .Title = "Выберите файл для открытия в и подсчета среднего количества слов в строке"
        End With
 
        OFD.ShowDialog()
        path = OFD.FileName
        FileOpen(1, path, OpenMode.Input)
        Dim s_arry(1) As String
        Dim n_arry(1) As Integer
        Dim i As Integer = 1
        Dim n As Integer = 1
        Dim sum, av As Integer
 
        Do Until EOF(1)
            s_arry(i) = LineInput(1)
            i += 1
            ReDim Preserve s_arry(i)
        Loop
        FileClose()
 
        For j = 1 To i
            n_arry(n) = 0
            For k = 0 To s_arry(j).Length - 1 'Ссылка на объект не указывает на экземпляр объекта.
                If s_arry(j).Chars(k) = " " Then
                    n_arry(n) += 1
                End If
            Next
            n += 1
            ReDim Preserve n_arry(n)
        Next
 
        sum = 0
        For j = 1 To i
            sum += n_arry(j)
        Next
 
        av = sum / i
 
        MsgBox(av)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CountSL As Integer = 0
        Dim CountST As Integer = 0
        Dim MFile() As String
        MFile = IO.File.ReadAllLines("D:\1.txt")
        Dim LegMFile(MFile.Length - 1) As Integer
        For i = 0 To MFile.Length - 1 Step 1
            For j = 0 To MFile(i).Length - 1 Step 1
                Try
                    Dim a = Split(MFile(i), " ")(j)
                    If a <> "" Or a <> " " Then
                        LegMFile(i) = LegMFile(i) + 1
                    End If
                Catch
                    Exit For
                End Try
            Next
        Next
        For i = 0 To MFile.Length - 1 Step 1
            CountSL = CountSL + LegMFile(i)
        Next
        CountST = MFile.Length
        MsgBox("Общее кол-во слов ~ " & Fix(CountSL / CountST) & "." & vbCrLf & "Или " & CountSL / CountST & ".", MsgBoxStyle.Information, "Ответ:")
    End Sub

        Dim MFile As String = IO.File.ReadAllText("D:\1.txt")
        Dim CountSL As Integer = MFile.Split(vbCrLf).Count
        Dim CountSW As Integer = MFile.Split(New Char() {vbCr, vbLf, " "}, StringSplitOptions.RemoveEmptyEntries).Count
        MsgBox("Среднее кол-во слов " & (CountSW / CountSL))