Function DioStr(Dio As Integer, Str As String, Karakter As String) 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 Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada
Str = Trim(Str) & Karakter 'Dodaj karakter na kraj
End If 'Kraj uslova

'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:
Beep
MsgBox "Баравте дел кој не постои!!!!", vbCritical + vbOKOnly + _
        vbDefaultButton1, "Напомена!!!"
Else
MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _
        vbDefaultButton1, "Napomena!!!"
End If
End Function