Imports System

Imports System.Text.RegularExpressions

public Module regexProg

   Sub showMatch(ByVal text As String, ByVal expr As String)

      Console.WriteLine("The Expression: " + expr)

      Dim mc As MatchCollection = Regex.Matches(text, expr)

      Dim m As Match

      For Each m In mc

         Console.WriteLine(m)

      Next m

   End Sub

   Sub Main()

      Dim str As String = "10196030860153"

      showMatch(str, "(^50[0-9]{10}$)|(^10[0-9]{12}$)|(^87[0-9]{9}$)")

   End Sub

End Module