If InStr(Temp, "1>") > 0 Then
            If InStr(Temp, "</") > 0 Then
            Temp = "</STAVKA>"
            Else
            Temp = "<STAVKA>"
            End If
        End If
        Print #2, tmp ' zapisi vrijednost temp u file 2
        tmp = Temp