как в VBA делать макроподстановку?

подскажите нубу плиз )

вот есть цикл

'...
i=0
Do Until rs.EOF
     .Form.Option1.Visible = True
     .Form.Option2.Visible = True
     .Form.Option3.Visible = True
     ' и т.д.

     rs.MoveNext
     i = i + 1
 Loop

в цикле надо сделать макроподстановку вместо 1,2,3... подставить значение переменной i
тоесть одним словом, как в VBA делать макроподстановку? :D
сорри за нубство, просто срочно надо сделать. в хелпе не нашол, а в нете нет времени лазить
заранее спасибо!

Form.Controls("Option" & i).Visible = False

Программист-Любитель, благодарю!
все заработало)