Const PutanjaR = "c:\_hcp\FROM_FP\Bill_State.xml" Function Citaj() Dim Temp As String Dim Jedan_red As String Dim Poz(1 To 3) As Integer Dim RacunBr As String Dim I As Integer On Error GoTo Citaj_Err Close #1 Open PutanjaR For Input As 1 For I = 1 To 4 Line Input #1, Jedan_red Temp = Temp & Jedan_red Next I Poz(1) = InStr(1, Temp, "RECEIPT_NUMBER=") Poz(2) = InStr(1, Temp, "REFOUND_RECEIPT_NUMBER=") If Poz(1) > 0 And Poz(2) > 0 Then Poz(1) = Poz(1) + 16 Poz(2) = Poz(2) - 2 Poz(3) = Poz(2) - Poz(1) RacunBr = Mid(Temp, Poz(1), Poz(3)) MsgBox "Fiskalni broj racuna je: " & RacunBr, vbCritical, "UPOZORENJE" Else MsgBox "UPSSS" End If Close #1 Citaj_Exit: Exit Function Citaj_Err: MsgBox Error$ Resume Citaj_Exit End Function