public imeFajla as string
public brSkladista as string
public imeSkladista as string
public datum as string

sub proba()
	imeFajla=01_jankomir_20180604
	
	if ime2array(imeFajla)=false then msgbox "greska"

	imeFajla=02_zitnjak_20180702

	if ime2array(imeFajla)=false then msgbox "greska"
end sub

function ime2array() as boolean
	dim arrImeFajla as string
	arrImeFajla=Split(imeFajla,"_")
	
	brSkladista=arrImeFajla(0) <=GRESKA compile error: expected array

	imeSkladista=arrImeFajla(1)
	datum=arrImeFajla(2)
end function