Public Sub Do_AllowParentheses(ByRef str As String, _
                 ByRef styles As Globalization.NumberStyles)
 
            'Hilfsfunktion: eliminiert ggf. 'AllowParentheses' aus
            'der NumberStyles-Kombination und entfernt - so vorhanden
            '- die Klammern an String-Anfang und -Ende
 
            Dim ba As New BitArray(BitConverter.GetBytes(styles))
            If ba(4) Then
                'AllowParentheses ist in Styles enthalten
                ba(4) = False
                Dim byt(4) As Byte : ba.CopyTo(byt, 0)
                'Styles-Parameter um diese Kennung reduzieren
                styles = CType(BitConverter.ToInt32(byt, 0),  _
                Globalization.NumberStyles)
                'ggf. die Klammern um den String entfernen
                If str.StartsWith("(") And str.EndsWith(")") Then
                    str = str.Trim("("c, ")"c)
                End If
            End If
        End Sub