Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim datapoints As String = "5000|10000|7.02120557628117|26.1153846153846|5.47424094025465|8.22777340676633"

        Console.WriteLine(getMaxValue(datapoints))

​

    End Sub

    Public Function getMaxValue(datapoints as String)

        Dim valueArray = datapoints.Split("|")

        Dim maxValue as Double

        Array.Sort(valueArray)

        maxValue = valueArray(valueArray.length-1)

        If maxValue <= 0 THEN

            maxValue = 5

        Else

            maxValue = maxValue

        End If

​

        return maxValue

    End Function

​

End Module

​