<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 />
Function string2array(Broj)
    
    Dim brojac As Long
    Dim arr As Variant
    Dim izborBrojevaTemp As String

    strBroj = Broj.Caption
    '=== ako izborBrojeva nije prazan ===
    If Not izborBrojeva = Empty Then
        'ako je ponovljen broj
        If InStr(1, izborBrojeva, strBroj) > 0 Then
            arr = Split(izborBrojeva, ",")
            For brojac = 0 To UBound(arr) - 1
                If arr(brojac) <> strBroj Then
                    izborBrojevaTemp = izborBrojevaTemp & arr(brojac) & ","
                End If
            Next brojac
            izborBrojeva = izborBrojevaTemp
            ukupnoBrojeva = ukupnoBrojeva - 1
            
            GoTo ispisi
            
        Else 'ako broj nije ponovljen
            If ukupnoBrojeva = 20 Then
                MsgBox "Izabrali ste max. broj brojeva!"
                Exit Function
            End If
            izborBrojeva = izborBrojeva & strBroj & ","
        End If
    
    Else
        izborBrojeva = strBroj & ","
    End If
    
    arr = Split(izborBrojeva, ",")
    ukupnoBrojeva = UBound(arr)
    
ispisi:
    UserForm1.TextBox2.Value = "": UserForm1.TextBox2.Value = ukupnoBrojeva
            
    If Len(izborBrojeva) > 0 Then
        UserForm1.TextBox1.Value = ""