Const Putanja_Filea = "Putanjasaimenomfilea" ' putanja sa imenom filea
Function Broj_RacunaR()
Dim temp As String
Dim Poz As Integer

Close #1
Open Putanja_Filea For Input As 1
For Poz = 1 To 6
Input #1, temp
Next Poz
Broj_RacunaR = temp
Kraj:
Close #1
End Function