type data
	str() as String
end type

Dim UcitanaMatrica As data
  Open "c:\imeFajla.txt" For Binary Lock Read Write  As #1
    Get #1, , UcitanaMatrica
  Close #1
 
  For red = LBound(UcitanaMatrica.str, 1) To UBound(UcitanaMatrica.str, 1)
    For brojDanauMjesecu = LBound(UcitanaMatrica.str, 2) To UBound(UcitanaMatrica.str, 2)
        For brojUzoraka = 1 to 4
      		Debug.Print UcitanaMatrica.str(red, brojDanauMjesecu, brojUzoraka)
    	Next brojUzoraka
    Next brojDanauMjesecu
 Next red