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 = ""
        UserForm1.TextBox1.Value = Left(izborBrojeva, Len(izborBrojeva) - 1)
    Else
        UserForm1.TextBox1.Value = ""
    End If
 
End Function