Forse non hai capito quello che ha detto MItaly: facendo un po' dicopia incolla:
codice:
For i = 1 To N
  Me.Controls.Iteam("Label"&i).Text = ...
Next