Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        ' Four alphas, dash, numeric digits, dash, alphas

        Dim regex = New Regex("(.{4})-[0-9]+-([A-Z]+)")

        ' Sample ID

        Dim identifier = "AB2Q-123768-QZDQF"

        ' Apply the regex to create a match object

        Dim m = regex.Match(identifier)

        If m.Success Then

            Console.WriteLine("Found '{0}' and '{1}' in '{2}'", m.Groups(1).Value, m.Groups(2).Value, identifier)

        End If

    End Sub

End Module