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

sub proba()

	dim arrImeFajla as string

	imeFajla=01_jankomir_20180604
	arrImeFajla=Split(imeFajla,"_")

	brSkladista=arrImeFajla(0)
	imeSkladista=arrImeFajla(1)
	datum=arrImeFajla(2)
end sub