Function Broj_Racuna(Putanja_Filea As String)
Dim temp As String
Dim Poz(1 To 2) As Integer
 
Close #1
Open Putanja_Filea For Input As #1
While Not EOF(1)
Input #1, temp
Poz(1) = InStr(1, temp, "BrojFiskalnogRacuna")
If Poz(1) > 0 Then
Input #1, temp
Poz(1) = InStr(1, temp, ">") + 1
Poz(2) = InStr(1, temp, "</")
Broj_Racuna = Mid(temp, Poz(1), Poz(2) - Poz(1))
Close #1
GoTo Kraj:
End If
Wend
Kraj:
Close #1
End Function