I do not believe there is any way around this with individual variables.

The only thing I can come up with is to create an array of characters and use a for loop to access each one in the array and set the property once:
Code:
For i as integer = 0 to array.length-1
  array(i).PropertyName = FunctionName(Byval ParameterName as Type)
Next
Did that on the fly so it will probably need tweaking, but am hoping that it gives you a general idea....

Good Luck!!

D