Thread: Extract data from notepad to excel

There is a way.

Dim myPath as String
Dim readLine as String
Dim fieldIndex as integer

myPath = "C:\myFile.txt"
fieldIndex = 1
Open myPath For Output As #1

Do Until EOF(1)

     Line Input #1, readLine
     'readLine is a variable that holds an entire line of your data so you can parse it however you need to.
     'I usually index the fields in a case. line 1 is name, 2 is DOB etc.
     Select Case fieldIndex
     Case 1
     'Code to parse name
     Case 2
     'Code to parse Dob
     'At the last case set the fieldIndex back to 0
     End Select
     fieldIndex = fieldIndex + 1
Loop

Close #1

There are variations on this as well. Good luck!