Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main()
		Dim res As MatchCollection = Regex.Matches("hjgv ygkuy (1) erg erg ewr (12)erg erg erg er. (321)", "\(([0-9]+)\)")
        If res.Count() > 0 Then
            For Each m As Match In res
            	Console.WriteLine(m.Groups(1).Value)
            Next
        End If
	End Sub
End Class