Algorithms/Find maximum/visual basic method 3

Public Function Pear(ByVal Nums as Integer) as Integer Dim AryStart as Integer = 0 Dim AryEnd as Integer = Nums.Length - 1

If AryEnd - AryStart = 1 Then →If Nums(AryEnd) > Nums(AryStart) →→Return Nums(AryEnd) →Else →→Return Nums(AryStart) →End if