Imports System

Imports System.Text.RegularExpressions

​

Public Class Example

    Public Shared Sub Main()

        Dim pattern As String = "%(\w+)&"

        Dim input As String = "Ci sono %Marco& e %Alex& che vanno a scuola. Un giorno %Mattia& incontra %Giulio& per caso."

        Dim options As RegexOptions = RegexOptions.Multiline

​

        For Each m As Match In Regex.Matches(input, pattern, options)

            Console.WriteLine("'{0}' found at index {1}. Group content: {2}", m.Value, m.Index, m.Groups(1))

        Next

    End Sub

End Class

​