Определить, в какой из строк предложений больше

Public class form1
    Private sub vivod_mas_strok(ByVal x() As string, ByVal n As Integer, ByRef ListBox1 as ListBox)
        For i = 0 To n - 1 
            ListBox1.Items.Add.(x(i))
        Next
    End Sub
    Private Function Ideal(ByVal s As String) As string
        s = strings.Trim(s)
        Do While Strings.IntStr(s, " ")
            S = Strings.Replace(s, " ", " ")
        Loop
        Ideal = s
    End Function
    Private Function kolvo_predl(ByVal s As String) As Integer
        Dim i, k As Integer
        k = 0
        For i = 1 To Strings.Len(s)
            If Strings.Mid(s, i, 1) = "." Then
                k = k + 1 
                End If 
        Next
        kolvo_predl = k
    End Function
    Private Function Poisk_max_stroki(ByVal x() as string,ByVal n As Integer, ByVal mas_predl() As Integer) as Integer
        Dim max, imax as Integer
        max = 0
        For i = 0 to n - 1
            if mas_predl(i) > max Then
                max = mas_predl(i)
                imax = i
            end if
        Next
        Poisk_max_stroki = imax
    End Function
    Private sub button_click(sender as object, e as event args handles button1.Click)
        dim mas_strok(), s as string
        dim mas predl() as integer
        dim i,n,imax as integer
        Do
            n =val(imputbox("кол-во строк"))
        Loop Until n > 0
        redim reserve mas_strok(n - 1)
        for i = 0 to n - 1
            mas_strok(i) = imputbox("введите строку")
        next
        vivod_mas_strok(mas_strok, n, ListBox1)
        Redim Preserve mas_predl(n-1)
        s = ""
        For i = 0 to n - 1
            s = mas_strok(i)
            s = ideal(s)
            mas_predl(i) = kolvo_predl(s)
        next
        imax = Poisk_max_stroki(mas_strok, n , mas_predl)
        textbox1.text = str(imax + 1)
    end sub
End class