As we have 8 values with 7 tabs extracted from the buffer I like to perform this comparison.
strInput = Mid$(strBuffer, 1, intPos - 1)
strCheck = InStr(strInput, vbTab)' check if there are enough tabs
If strCheck < 7 Then' if we do not have enough tabs
'exit loop 'exit the current parsing loop
End If
So if we do not have 7 tabs we are sure we do not have all data for one reason or an other so we have to exit the loop and do not need to split the data as this is the cause of the problem.
Why is the exit loop commented? Lack of my ability to code properly 
But it explains what I try to achieve code wise
Paco