Function Vrsta_Ugovora(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, "") If Poz(1) > 0 Then Poz(1) = 16 Poz(2) = InStr(1, temp, "