Hola Alfredo:
Para hacer eso necesitas usar un array.
Para declarar el array y luego poder redimensionarlo:
Dim MiArray()
Luego necesitas dimensionarlo:
Redim MiArray (x)
Ahí tienes para colocar x variables en el array.
Si luego necesitas aumentar la cantidad pero sin perder los valores ingresados tienes que usar la palabra Preserve:
x = x + 10 ' por ejemplo
Redim Preserve MiArray (x)
Si necesitas saber cuantas variables hay en el array usa la función Ubound
x1 = Ubound (MiArray)
Si por ejemplo el array de variables es de tipo String, se declara así:
Dim MiArray() as String
Cualquier duda busca todas estas cosas en la ayuda de VB.
Saludos,
Javier