Nebylo by snadnější to řešit cyklem s podmínkou ve Visual Basicu?