Function poziv_VrtaU()
Dim Brrac As String
Brrac = Vrsta_Ugovora("c:\Tring\stampatifiskalniracun.11.xml")
MsgBox "Vrsta ugovora je: " & Brrac
End Function