Public Function GT(Podatok, Optional DelBroj As Integer = 1)
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer

 
 If IsNull(Podatok) Or Podatok = "" Then
    GT = " "
   ' Exit Function
 Else
 
  RedPod = Podatok ' "+CRLP: 61,61,78,6"
  Vrati_Podatak RedPod, BrojVar, ArrPodaci
    Arr = Split(ArrPodaci, ",")
   'For I = 0 To BrojVar
    GT = Arr(DelBroj)
 'Next I
 End If
 
End Function