Как внести в цикл array(i) = array(i).ItemData(0)?

Как написать цикл для данных элементов?
Me.effort0 = Me.effort0.ItemData(0)
Me.effort1 = Me.effort1.ItemData(0)
Me.effort2 = Me.effort2.ItemData(0)
Me.effort3 = Me.effort3.ItemData(0)
Me.effort4 = Me.effort4.ItemData(0)
Me.effort5 = Me.effort5.ItemData(0)
Me.effort6 = Me.effort6.ItemData(0)
Me.effort7 = Me.effort7.ItemData(0)
Me.effort8 = Me.effort8.ItemData(0)
Me.effort9 = Me.effort9.ItemData(0)