Dim s As String = "( 1234123 )"
        Dim r As System.Text.RegularExpressions.Regex
        Dim m As System.Text.RegularExpressions.Match
        Dim num As Integer
        m = r.Match(s, "(\d+)")
        If Double.TryParse(m.Value, Globalization.NumberStyles.Integer, New _
          System.Globalization.CultureInfo("DE-de"), num) Then
            MessageBox.Show(num)
        End If