Hola haber si no me equivoco primeramente tendrías que redimensionar el vector una vez que le pasas lo del textbox1 a la variable a:
a=Cint(text bobx1.text) 'convertimos a tipo Integer ya que la variable es de ese tipo
redim ar(a)
Recuerda que si a vale 5, tendrás un vector de 6 elementos.
Ahora en el button pon:
a=textbox1.text
redim ar(a)
for b=0 to a
ar(
= c+1
listbox1.items.add(ar(d))
next
En todos los elementos vas a tener la misma info. Nos vemos
Tumbes - Perú
