Function Broj_Racuna()
Dim temp As String
Dim Poz, Poz2, Poz3 As Integer

Close #1
Open Putanja_Filea For Input As 1
While Not EOF(1)
Line Input #1, temp
If Mid(temp, 1, 2) = "56" Then
Poz = InStr(1, temp, ";")
Poz2 = InStr(Poz + 1, temp, ",")
Poz3 = InStr(Poz2 + 1, temp, ",")
Broj_Racuna2 = Mid(temp, Poz2 + 1, Poz3 - Poz2 - 1)
GoTo kraj:
End If
Wend
kraj:
Close #1
End Function