private sub test()
	Dim imeFile As String
        Dim FF As Integer
        Dim folderPath As String
	Dim x as Integer
	Dim y as Integer
	Dim z as Integer
	Dim matrica() as String
	
	' napunimo matricu nekim podacima
	'x=4:y=3:z=10
	'Redim matrica(1 to x,1 to y,1 to z)
	'matrica(1,1,1)="nesto"
	'matrica(1,1,2)="nesto drugo"
	'itd do
	'matrica(4,3,10)="zadnji podataka"

	'snimanje matrice
        folderPath = Application.ActiveWorkbook.Path
        FF = FreeFile()
        imeFile = folderPath & "/matrica.bin"
        
        Open imeFile For Binary Access Write As #FF
            Put #FF, , x'velicina prvog polja
            Put #FF, , y'velicina drugog polja
	    Put #FF, , z'velicina treceg polja
            Put #FF, , matrica()
        Close #FF
end sub