Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
		Dim s As String = "( )yourstring()somevalue( )getit()"
			'A sample string.
			Dim rgx As New Regex("(?<BraceGroup>\([ ]*\))", RegexOptions.Singleline)
			'Regex pattern to match '( )' or '()'.
			Dim matches As MatchCollection = rgx.Matches(s)
			'Get all matches.
			Dim count As Integer = matches.Count
			'Number of matches.
			Console.WriteLine(String.Format("Total groups found : {0}", count))
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcyBBcyBTdHJpbmcgPSAiKCApeW91cnN0cmluZygpc29tZXZhbHVlKCApZ2V0aXQoKSIKCQkJJ0Egc2FtcGxlIHN0cmluZy4KCQkJRGltIHJneCBBcyBOZXcgUmVnZXgoIig/PEJyYWNlR3JvdXA+XChbIF0qXCkpIiwgUmVnZXhPcHRpb25zLlNpbmdsZWxpbmUpCgkJCSdSZWdleCBwYXR0ZXJuIHRvIG1hdGNoICcoICknIG9yICcoKScuCgkJCURpbSBtYXRjaGVzIEFzIE1hdGNoQ29sbGVjdGlvbiA9IHJneC5NYXRjaGVzKHMpCgkJCSdHZXQgYWxsIG1hdGNoZXMuCgkJCURpbSBjb3VudCBBcyBJbnRlZ2VyID0gbWF0Y2hlcy5Db3VudAoJCQknTnVtYmVyIG9mIG1hdGNoZXMuCgkJCUNvbnNvbGUuV3JpdGVMaW5lKFN0cmluZy5Gb3JtYXQoIlRvdGFsIGdyb3VwcyBmb3VuZCA6IHswfSIsIGNvdW50KSkKCUVuZCBTdWIKRW5kIENsYXNz