dynamic array

[adzzzz]

Dim strDescription As String, intTemp As Integer, intContains As Integer
For Each Item In strFullError
    intContains = intContains + 1
Next
intContains = intContains - 1
MsgBox intContains
For intTemp = 0 To intContains Step 1
    intTemp = intTemp + 1
    MsgBox intTemp
    MsgBox strFullError(intTemp)
    strDescription = strDescription & " " & strFullError(intTemp)
Next

im tryin to get all of the indexes from an array except for the first one (0) but when the second for loop runs, it increments in 2s? and goes from 1 to 3 so im gettin a subscript out of range errormibob, anyone know why?
cheers

ps, its in a function where strfullerror is declared as an arrayed string like strFullError() as String, im new to arrays please bare with mee :P

[Mc Brain]

Try this:

Dim strDescription As String, intTemp As Integer, intContains As Integer
For Each Item In strFullError
    intContains = intContains + 1
Next
intContains = intContains - 1
MsgBox intContains
For intTemp = 1 To intContains
    MsgBox intTemp
    MsgBox strFullError(intTemp)
    strDescription = strDescription & " " & strFullError(intTemp)
Next

[adzzzz]

oo, taaaaaa! i cant even see wat u changed let me take a closer look cheers again

[adzzzz]

o i c!! the for increments it itself so mine was doin it twice.. haha im stupid :P

[Mc Brain]

Originally posted by adzzzz
oo, taaaaaa! i cant even see wat u changed let me take a closer look cheers again

I changed the limits of the For to start at 1, and remove the increment of the variable line.

[daydee]

Public Function CountArIndx(myArray() As String) As Integer
    For CountArIndx = LBound(myArray()) To UBound(myArray())
    'MsgBox CountArIndx
    Next
End Function

Is this what you need?
Stick this in a module and just call it up. This will return the number of indexes contained in your array.