Imports System.Text.RegularExpressions
Dim regex = New Regex("(.{4})-[0-9]+-([A-Z]+)")
Dim identifier = "AB2Q-123768-QZDQF"
Dim m = regex.Match(identifier)
Console.WriteLine("Found '{0}' and '{1}' in '{2}'", m.Groups(1).Value, m.Groups(2).Value, identifier)