Imports System

Imports System.Text.RegularExpressions

Imports System.Runtime.CompilerServices 

Public Module Module1

    Public Sub Main()

        Dim num1 As string = "12345,23456,34556,23113211,132123123,123454356"

        Console.WriteLine(ValdidateValue(num1))

        Dim num2 As string = "12345,23456,34556,23113211,132123123,123454356a"

        Console.WriteLine(ValdidateValue(num2))

        Dim num3 As string = "12345,23456,34556,23113211,132123123,123454356#"

        Console.WriteLine(ValdidateValue(num3))

        Dim num4 As string = "12345,23456,34556,%23113211,132123123,123454356"

        Console.WriteLine(ValdidateValue(num4))

    End Sub

    Public Function ValdidateValue(ByVal num As String) As String

        Dim regex As Regex = New Regex("^(\d+,)*\d*$")

        Dim match As Match = regex.Match(num)

        If match.Success Then

            Return ("Valid Number")

        Else

            Return ("Invalid Number")

        End If

    End Function

End Module