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

Public Class Form1
    Dim S(100) As String
    Dim i, a As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        Do While Not EOF(1)
            S(i) = LineInput(1)
            RichTextBox1.Text = RichTextBox1.Text + S(i) + vbCrLf
            Loop
        FileClose(1)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        S(i) = Len(RichTextBox1.Text)
        a = S(i) / 4
        MsgBox(a)
    End Sub

        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы (*.txt)|*.txt"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.Text = IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
            MsgBox("Количество строк в файле: " & RichTextBox1.Lines.Length, MsgBoxStyle.Information)
        End If