Imports System

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    Public Sub Main()

        Dim tagNumber As String = "1-BB-TS-TY10"

        Dim ptnTagNumber As String = "-([A-Z0-9]{1,2})"

        Dim regexTagNumber As New Regex(ptnTagNumber)

        ' 

        If regexTagNumber.IsMatch(tagNumber) Then

            Dim matchs = regexTagNumber.Matches(tagNumber)

            Dim isValid = tagNumber.Length >= 14

            'Dim tagPart=""

            'If isValid Then

                'tagPart=matchs(1).Groups(1).Value

            'Else

                'tagPart=matchs(1).Groups(1).Value

            'End If

​

            For i = 0 To(matchs.Count - 1)

                Dim tagPart = matchs(i).Groups(1).Value

                '

                Console.WriteLine(tagPart)

            Next

        End If

    End Sub

End Module