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

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

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