Yes, you can use that loop.
Once you extract each line, you can use this Function to extract a particular word as long as the separator field is specified ie. the " " space.
CODE
Public Function ExtractWordBySep(source As String, count As Integer, sep As String) As String
Dim res As String
Dim i As Integer, pos As Integer, ct As Integer
res = ""
pos = 1
ct = 1
For i = 1 To Len(source)
If ct = count Then Exit For
If Mid(source, i, 1) = sep Then ct = ct + 1: pos = i + 1
Next i
If (count > ct) Or count = 0 Then ExtractWordBySep = "": Exit Function
For i = pos To Len(source)
If Mid(source, i, 1) <> sep Then
res = res + Mid(source, i, 1)
Else
Exit For
End If
Next i
ExtractWordBySep = res
End Function
So if your line (stored in str) contains
This is Line OneUsing ExtractWordBySep(str,3," ") will return
Line
| 