Public Function UcitajTXT()
'*******************************************
'Ime: UcitajTXT (Function)
'Sadržaj: Ucitava TXT file
'Autor: ZXZ
'Datum: 09 06, 2010, 09:29:42
'Adresa: Tuzla BiH
'Email: zxz@icentar.ba
'Ulazni parametri:Nema a moze se staviti
'putanja do fajla
'Izlazni parametri:Nema samo u temp
'iscitava red po red podataka iz txt fahla
'while petlja lista podatke iz fajla.
'*******************************************
Dim txt_fajl
Dim Temp

On Error GoTo Greska
txt_fajl = FreeFile
Open "PutanjaDoFilea" For Input As #txt_fajl
While Not EOF(1)
Line Input #txt_fajl, Temp
'input #txt_fajl, temp
Wend
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Resume Izlaz
Kraj:
End Function