option Explicit

private type data
      uzorak1 as string
      uzorak2 as string
      uzorak3 as integer
      uzorak4 as integer
end Type

Private Sub Command1_Click()
    Open "c:\imeFajla" For Binary Access Read As #1
        Dim podaci As data
        Do While Not EOF(1)
               Get #1, , podaci
               With podaci
                       Debug.Print .uzorak1
                       Debug.Print .uzorak2
                       Debug.Print .uzorak3
                       Debug.Print .uzorak4
              End With
        Loop
    Close #1
    
End Sub