Function niz()
Dim temp As String
Dim arr() As String
temp = "prvi,drugi,treci"
arr = Split(temp, ",")
niz = arr(2)
End Function