Function DioStr(Dio As Integer, str As String, Karakter As String, Opcija As Integer) As String
Dim Pozicija1, Pozicija2, Brojac
'***********************************************************************
'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT
'KARAKTER IZMEDJU KOJEG SE SIJECE STRING
'Autor funkcije(ZXZ)
'***********************************************************************
On Error GoTo Greska:
Pozicija2 = 1
        If Opcija = 0 Then
            If Right(str, 1) <> Karakter Then                           'Dali je desni karakter razlicit ako jeste tada
                      str = Trim(str) & Karakter                          'Dodaj karakter na kraj
             End If 'Kraj uslova
        End If
  'POZICIJA IZMEDJU DVA KARAKTERA
            For Brojac = 1 To Dio
                    Pozicija1 = InStr(Pozicija2, str, Karakter, 1)
                            If Brojac < Dio Then
                               Pozicija2 = Pozicija1 + 1
                               If Pozicija1 = 0 Then GoTo Upozorenje
                            End If
            Next Brojac
 'DIO STRINGA IZMEDJU DVIJE POZICIJE
        DioStr = Mid(str, Pozicija2, Pozicija1 - Pozicija2)
 Exit Function
Greska:
             If Err.Number = 5 Then
Upozorenje:
                   DioStr = ""
             Else
                    MsgBox "Greška Br: " & Err.Number, vbCritical + vbOKOnly + vbDefaultButton1, "Napomena!!!"
             End If
End Function