better code

[Darbujan]

I have my ugly code:

dim o1, o2, o3,... as object

object1.property = 100
object2.property = 100
...
How I make it better,
for example by array object?
(I am beginner.)