simple array question

[newbiekea]

i have declared an array but if there are no elements in it i'm getting an error:

Error 9
Subscript out of range: 'lbound'
clsCanvas:Running script

dim arrayE() as variant
 
'code
redim preserve array(counter)
arrayE(counter) = aVariable
 
for i = 0 to ubound(arrayE)
  msgbox arrayE(i)
next i

if i have 1 element in the array the array's ubound is 0, so i cannot check on O, do i have to check on ubound(arrayE) > -1??

or is there another solution?

[Wokawidget]

I am assuming you don't have Option Explicit at the top of your code...

Option Explicit
 
Private Sub Command1_Click()
Dim arrUsers()   As String
Dim lngIndex   As Long
   
   ReDim arrUsers(2) As String
   
   arrUsers(0) = "Fish"
   arrUsers(1) = "Woof"
   arrUsers(2) = "Growl"
   
   For lngIndex = LBound(arrUsers) To UBound(arrUsers)
      MsgBox arrUsers(lngIndex)
   Next lngIndex
End Sub

Hope that helps,

Woka