Imports System

Imports System.Linq

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim pattern = "^{((-?\d+(\.\d+)?),\s?){19}(-?\d+(\.\d+)?)}$"

        Dim input = "{0.3064, 15.6497, 60.7668, 52.1362, 76.6645, 97, -15.8315, -6.8806, 5.547, -2.3381, -23.9905, 40.4569, 60.1592, 27.1418, 42.9375, -22.8297, -11.7423, -17.1576, -33.9918, 7.0585}"

​

        If (Regex.IsMatch(input, pattern)) Then

            input = input.Replace("{", String.Empty).Replace("}", String.Empty)

            Dim items = input.Split(",")

            Dim convertedItems = items.Select(Function(item) Convert.ToDouble(item.Trim())).ToArray()

            If (convertedItems.All(Function(item) item >= -1000 AndAlso item <= 1000)) Then

                Console.WriteLine("All of the items are within -1000 and 1000")

            End If

        End If

    End Sub

End Module