Public Function OdsecenDel(Podatok As String, Optional DelBroj As Integer = 1) Dim RedPod As String Dim BrojVar As Integer Dim ArrPodaci Dim Arr() As String Dim I As Integer RedPod = Podatok ' "+CRLP: 61,61,78,6" Vrati_Podatak RedPod, BrojVar, ArrPodaci If IsNull(ArrPodaci) Or ArrPodaci = "" Then Exit Function Else Arr = Split(ArrPodaci, ",") 'For I = 0 To BrojVar OdsecenDel = Arr(DelBroj) 'Next I End If End Function Public Function Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci = "") Dim Poz As Integer, Duzina As Integer, I As Integer Dim PrviDio As String, DrugiDio As String, Skupa As String Dim Znak As String Poz = InStr(1, UlazniPodatak, "(", vbBinaryCompare) If Poz = 0 Then GoTo Kraj PrviDio = Mid(UlazniPodatak, 1, Poz - 1) DrugiDio = Mid(UlazniPodatak, Poz + 1) Skupa = PrviDio & "," & DrugiDio Duzina = Len(UlazniPodatak) - 1 BrojVar = 0 For I = 1 To Duzina Znak = Mid(Skupa, I, 1) If Znak = "," Then BrojVar = BrojVar + 1 End If Next I ArrPodaci = Skupa Izlaz: Exit Function Kraj: ArrPodaci = "" BrojVar = 0 GoTo Izlaz End Function