```
Dim newArray(10), n
For n = 1 To 10
newArray(n) = n
Next
```

Or:

```
Dim newArray(), n
ReDim newArray(10)
For n = 1 To 10
newArray(n) = n
Next
```

In either case, be advised that the lower bound of the array will actually be 0, and not 1.