Dim Brojac As Integer

Pauza1:
Zaustavi (2)
If Brojac > 6 Then GoTo Kraj
On Error Resume Next
Dim Odgovor As String
Odgovor = Vrsta_Ugovora("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
If Error.Number = 53 Then
err.Clear
On Error GoTo 0
Brojac = Brojac + 1
GoTo Pauza1
End If

If Odgovor = "Greska" Then
MsgBox "Račun nije fiskalizovan!", vbCritical
Else
Dim Brrac As String
Brrac = Broj_Racuna("c:\tring\xml\odgovori\stampatifiskalniracun." & zah & ".xml")
[Forms]![racun].BRF = Brrac
[Forms]![racun].Fiskalizovan.Value = -1
'GoTo Izlaz
End If

Kraj: MsgBox "Doslo je do greske!"