<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Function Extract_Number_With_Decimal(ByVal strString As String) As Double
    Dim blnHasDecimal As Boolean, i As Integer
    Dim s As String
    
    strString = Trim$(strString)
    If Len(strString) = 0 Then
        Exit Function
    End If
    
    For i = 1 To Len(strString)
        Select Case Mid$(strString, i, 1)

            ' provjeri dali je znak broj
            Case "0" To "9"
                ' dodaj u string ako je
                s = s & Mid$(strString, i, 1)

            ' znak je tocka ili zarez
            Case ".", ","
                If Not blnHasDecimal Then
                    blnHasDecimal =