Imports System

​

Public Module Module1

​

    Public Sub Main()

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

        Console.WriteLine(getMaxValue(datapoints))

​

    End Sub

    Public Function getMaxValue(datapoints as String)

        Dim stringArray = datapoints.Split("|")

        Dim doubleArray As Double() = Array.ConvertAll(stringArray, AddressOf StringToDouble)

        Array.Sort(doubleArray)

        Dim maxValue as Double

        maxValue = doubleArray(doubleArray.length-1)

        If maxValue <= 0 THEN

            maxValue = 5

        Else

            maxValue = maxValue

        End If

​

        return maxValue

    End Function

    Private Function StringToDouble(ByVal input As String) As Double

        Return Double.Parse(input)

    End Function

​

End Module

​