Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main() 
		Dim pattern As String = "(%\w+)"
		Dim s As String = "%1n--%2n##%12n"
		Dim matches As String() = System.Text.RegularExpressions.Regex.Split(s, pattern)
		For Each m As String In matches
		    If Not String.IsNullOrEmpty(m) Then
		       Console.WriteLine(m)
		    End If
		Next
	End Sub
End Class