Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main() 
		Dim pattern As String = "\b\p{L}+\b"
		Dim s As String = "abcd NonLastMatch РОДИНА"
		Dim matches As MatchCollection = System.Text.RegularExpressions.Regex.Matches(s, pattern)
		For Each m As Match In matches
		    Console.WriteLine(m.Value)
		Next
		
	End Sub
End Class