strings

[MPrestonf12]

I have a sort of interesting task. I have text loaded where I must find a certain line that starts with a certain word and then from there parse out a piece. This what I got. It find the positions ok but Im confused about having it start at the specified line and then finding the piece to parse.It hits a error where retval is (error 5) All it has to do is count the number of occurences. here's the code

hum = InStr(1, searchstring, "Human", vbTextCompare)

Do
    hum = InStr(hum + 1, searchstring, "Human", vbTextCompare)
        ReDim Preserve humpos(humcount)
        humpos(humcount) = hum
        humcount = humcount + 1
Loop While hum <> 0

counter2 = 0

For i = LBound(humpos) To UBound(humpos)
    retval = InStr(humpos(i), searchstring, find, vbTextCompare)
        Debug.Print
        If retval Then
            counter2 = counter2 + 1
        End If
Next i

Debug.Print counter2

[Microbasic]

This worked fine for me...

Private Sub Form_Load()
Const searchstring = "Human is a Human for Humans to Human powere Human Human oifh ajsdhfsa sfouash ukshcfas Human"
Dim humpos() As Long
hum = InStr(1, searchstring, "Human", vbTextCompare)

Do
    hum = InStr(hum + 1, searchstring, "Human", vbTextCompare)
        ReDim Preserve humpos(humcount)
        humpos(humcount) = hum
        humcount = humcount + 1
Loop While hum <> 0

counter2 = 0

For i = LBound(humpos) To UBound(humpos)
    retval = InStr(humpos(i), searchstring, find, vbTextCompare)
        If retval Then
            counter2 = counter2 + 1
        End If
Next i

Debug.Print counter2

End Sub

What are your DECLARATIONS and SEARCHSTRING?

[MPrestonf12]

I have everything declared but did not post it
What does it return when you run it?