Imports System
Imports System.Collections.Generic
 
Public Class Test
	Public Shared Sub Main()
                Dim Values As Double() = StringToDoubleArray("1,2.4,5.4,6,2", New String() {","})
                For Each d As Double In Values
		    Console.WriteLine(d.ToString())
                Next
	End Sub
 
        Public Shared Function StringToDoubleArray(ByVal Input As String, ByVal Separators As String()) As Double()
            Dim StringArray() As String = Input.Split(Separators, StringSplitOptions.RemoveEmptyEntries) 'Split the string into substrings.
            Dim DoubleList As New List(Of Double) 'Declare a list of double values.
 
            For x As Integer = 0 To StringArray.Length - 1
                If Double.TryParse(StringArray(x), Nothing) = True Then 'Check that the string is parsable into a double.
                    DoubleList.Add(Double.Parse(StringArray(x))) 'Add the double to the list.
                End If
            Next
 
            Return DoubleList.ToArray() 'Convert the list into an array.
        End Function
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMuR2VuZXJpYwoKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgICAgICAgICAgRGltIFZhbHVlcyBBcyBEb3VibGUoKSA9IFN0cmluZ1RvRG91YmxlQXJyYXkoIjEsMi40LDUuNCw2LDIiLCBOZXcgU3RyaW5nKCkgeyIsIn0pCiAgICAgICAgICAgICAgICBGb3IgRWFjaCBkIEFzIERvdWJsZSBJbiBWYWx1ZXMKCQkgICAgQ29uc29sZS5Xcml0ZUxpbmUoZC5Ub1N0cmluZygpKQogICAgICAgICAgICAgICAgTmV4dAoJRW5kIFN1YgoKICAgICAgICBQdWJsaWMgU2hhcmVkIEZ1bmN0aW9uIFN0cmluZ1RvRG91YmxlQXJyYXkoQnlWYWwgSW5wdXQgQXMgU3RyaW5nLCBCeVZhbCBTZXBhcmF0b3JzIEFzIFN0cmluZygpKSBBcyBEb3VibGUoKQogICAgICAgICAgICBEaW0gU3RyaW5nQXJyYXkoKSBBcyBTdHJpbmcgPSBJbnB1dC5TcGxpdChTZXBhcmF0b3JzLCBTdHJpbmdTcGxpdE9wdGlvbnMuUmVtb3ZlRW1wdHlFbnRyaWVzKSAnU3BsaXQgdGhlIHN0cmluZyBpbnRvIHN1YnN0cmluZ3MuCiAgICAgICAgICAgIERpbSBEb3VibGVMaXN0IEFzIE5ldyBMaXN0KE9mIERvdWJsZSkgJ0RlY2xhcmUgYSBsaXN0IG9mIGRvdWJsZSB2YWx1ZXMuCgogICAgICAgICAgICBGb3IgeCBBcyBJbnRlZ2VyID0gMCBUbyBTdHJpbmdBcnJheS5MZW5ndGggLSAxCiAgICAgICAgICAgICAgICBJZiBEb3VibGUuVHJ5UGFyc2UoU3RyaW5nQXJyYXkoeCksIE5vdGhpbmcpID0gVHJ1ZSBUaGVuICdDaGVjayB0aGF0IHRoZSBzdHJpbmcgaXMgcGFyc2FibGUgaW50byBhIGRvdWJsZS4KICAgICAgICAgICAgICAgICAgICBEb3VibGVMaXN0LkFkZChEb3VibGUuUGFyc2UoU3RyaW5nQXJyYXkoeCkpKSAnQWRkIHRoZSBkb3VibGUgdG8gdGhlIGxpc3QuCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgTmV4dAoKICAgICAgICAgICAgUmV0dXJuIERvdWJsZUxpc3QuVG9BcnJheSgpICdDb252ZXJ0IHRoZSBsaXN0IGludG8gYW4gYXJyYXkuCiAgICAgICAgRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcw==