Есть ли способ присвоить значение нескольким переменным (в данном случае целым числам) вместо всех сразу?

Например, у меня естьDim aceVal, twoVal, threeVal, fourVal, fiveVal, sixVal, sevenVal, eightVal, nineVal, tenVal As Integer и, в ожидании выбора списка, яЯ хотел бы назначить ThreeVal FourVal и SixVal все значения -1.

Как я могу это сделать? Благодарю.