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