sub procitaj()
dim strData as string
dim FF as integer
dim pocetak as integer
dim kraj as integer
FF=FreeFile()
open App.Path & "\ImeFajla.txt" For INPUT As #FF
Line INPUT #FF,strData
Close "FF

pocetak=Instr(1,strData,",")
kraj=Instr(pocetak+1,strData,",")
sifra=Left(strData,pocetak-1)
grupa=Mid(strData,pocetak+1,kraj-pocetak-1)
pocetak=Instr(kraj,strData,",")
kraj=Instr(pocetak+1,strData,","
korisnik=Mid(strData,pocetak+1,kraj-pocetak-1)
end sub