redim preserve shared unser_array(file) as integer sub vergroessern() redim preserve shared unser_array(ubound(file)+1) as integer end sub vergroessern()