Quick array question

[whizzy]

Another dumb newbie question.

Every time when I increment the array ni my code, it then shows as <subscript out of range>. The next time that i populate it, the array is populated with the next array number, but again, when I go past and increment the counter, it gives the error again.

here is the code that I am working with.

-----------------------

intCount = 0
Do While Not EOF(1)
Line Input #1, LinesArr(LinesRead)
If blnFound = True Then
If Trim(LinesArr(LinesRead)) <> "" Then
strTellerArray(intCount) = Trim(LinesArr(LinesRead))
intCount = intCount + 1
End If
End If
If Left(LinesArr(LinesRead), 29) = "For Employee #: All Detail" Then
strInBuf1 = LinesArr(LinesRead)
ElseIf LinesArr(LinesRead) = strTeller Then
strInBuf2 = LinesArr(LinesRead)
strTellerArray(intCount) = Trim(strInBuf2)
intCount = intCount + 1
blnFound = True
End If
ReDim Preserve strTellerArray(intCount) As String
Loop


thanks in advance.

[john24]

where have you declared LinesArr and strTellerArray?

dim LinesArr(100) as string
dim strTellerArray(100) as string

[whizzy]

In the beginning of the function.

Dim LinesArr() As String
ReDim LinesArr(1)
Dim strInBuf1 As String
Dim strInBuf2 As String
Dim intCount As Integer
Dim strTellerArray() As String