Imports System
Imports System.Text.RegularExpressions
Imports System.Collections
Public Class Test
	Public Shared Sub Main()
                Dim u As Long
		Dim IndividualClasses As MatchCollection = Regex.Matches(",AFA 4313 AFA 4333 AFA 4335 AFA 4350 AFA 4500 AFA 4502 AFA ", "[A-Z]{3}\p{Zs}[0-9]{4}")
                For u = 0 To IndividualClasses.Count - 1
                  Console.WriteLine(IndividualClasses(u).Value.Replace(" ", "-"))
                Next u
 
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgICAgICAgICAgRGltIHUgQXMgTG9uZwoJCURpbSBJbmRpdmlkdWFsQ2xhc3NlcyBBcyBNYXRjaENvbGxlY3Rpb24gPSBSZWdleC5NYXRjaGVzKCIsQUZBIDQzMTMgQUZBIDQzMzMgQUZBIDQzMzUgQUZBIDQzNTAgQUZBIDQ1MDAgQUZBIDQ1MDIgQUZBwqAiLCAiW0EtWl17M31ccHtac31bMC05XXs0fSIpCiAgICAgICAgICAgICAgICBGb3IgdSA9IDAgVG8gSW5kaXZpZHVhbENsYXNzZXMuQ291bnQgLSAxCiAgICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKEluZGl2aWR1YWxDbGFzc2VzKHUpLlZhbHVlLlJlcGxhY2UoIiAiLCAiLSIpKQogICAgICAgICAgICAgICAgTmV4dCB1CgoJRW5kIFN1YgpFbmQgQ2xhc3M=