Gibt es eine Möglichkeit, mehreren Variablen (in diesem Fall ganzen Zahlen) statt allen auf einmal einen Wert zuzuweisen?

Zum Beispiel habe ichDim aceVal, twoVal, threeVal, fourVal, fiveVal, sixVal, sevenVal, eightVal, nineVal, tenVal As Integer In Erwartung der Auswahl des Listenfelds möchte ich dreiWert vierWert und sechsWert alle Werte von -1 zuweisen.

Wie kann ich das machen? Vielen Dank.