PEGAR MAIOR VALOR

Public Function GetIndiceComMaiorValor(ByVal r As RichTextBox) As Integer
        Dim mm As Integer = Nothing
        mm = r.Lines(0)
        For i As Integer = 1 To r.Lines.Length - 1

            If r.Lines(i) > mm Then
                mm = r.Lines(i)
            End If

        Next
        For i As Integer = 0 To r.Lines.Length - 1
            If r.Lines(i) = mm Then
                Return i + 1
            End If

        Next

    End Function

MsgBox([Ô]O maior valor está na linha [Ô] & GetIndiceComMaiorValor(RichTextBox1))