I suggest you look into the Split() function.
I Think your code would end up like the following in #17(You would have to either trim/determine where to 'tokenize' your line, depending what your input file looks like):
If InStr(1, strLine, staffdat, vbBinaryCompare) > 0 Then
foundArr = Split(strLine, " ")'change " " to whatever fits your needs
For i = LBound(foundArr) to UBound(foundArr)
'enter each string into a cell, etc
Next i