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