Do While Line <> "0 TRLR"
FinalText.Append("Record: ").Append(i).Append(CRLF)
tmpLine = TextReader1.ReadLine
Log(tmpLine) 'write the line to LogCat
If tmpLine.contains("INDI") Then ' A person.
NewRecord = True
'parse out individual id
tmpINDI(i) = sf.MidExtract(tmpLine,"@","@") 'crash happens here
FinalText.Append("INDI: ").Append(tmpINDI(i)).Append(CRLF)
'go and get record details
Do While NewRecord