How Redim 'Unidimensional' Array?

[Freddy Coal]

Hi, I don't know how redim an array, My problem whit an example:

I define my array

Dim Ary as array

I put three elements inside my array

Ary = Split("one,two,three", ",")

I would like redim my array for delete the space "Three", how make that?

I need in my array only
Ary (0) = "One"
Ary(1) = "Two"

Thanks a lot for any help, I'm using Redim and Redim preserve, but this
commands only work when I define array with more than one element.

My best regards.

Freddy Coal

[Mudhead]

Dim Ary() As String
Ary = Split("one,two,three", ",")
ReDim Preserve Ary(1)

"Freddy Coal" <fr********@gmail.withoutspan.comwrote in message
news:%2****************@TK2MSFTNGP02.phx.gbl...

Hi, I don't know how redim an array, My problem whit an example:

I define my array

Dim Ary as array

I put three elements inside my array

Ary = Split("one,two,three", ",")

I would like redim my array for delete the space "Three", how make that?

I need in my array only
Ary (0) = "One"
Ary(1) = "Two"

Thanks a lot for any help, I'm using Redim and Redim preserve, but this
commands only work when I define array with more than one element.

My best regards.

Freddy Coal