Hola, me olvide de inicializar cont
antes de
Dim Arreglo() As Variant 'defino al arreglo en la rutina General
Dim cont As Integer ' Variable para modificar la dimension del arreglo
Private Sub Command1_Click() 'mediante un CommandButton ingreso datos y
'dimenciono al arreglo
ReDim Preserve Arreglo(cont) 'REDIMENCIONO AL ARREGLO
Arreglo(cont) = Text1.Text
cont = cont + 1
End Sub
Private Sub Form_Load() 'Esto es lo que me olvide
cont=0
End Sub
sino en esta parte ReDim Preserve Arreglo(cont) 'REDIMENCIONO AL ARREGLO te iva a dar error, porque cont no tenia nigun valor asignado. De todas formas es solo un ejemplo para redimencionar un arreglo mientras llame a la rutina Command1_Click()
Disculpa por el error anterior.
Arnaldo
A.A.V