Here is an example.
'Filename = the full path to Your txt file eg."C:\MyDocuments\Mytxt.txt"
Open Filename For Input As #1
Do While (Not EOF(1))
' In this case the file is delimited by , and contains several lines
' Read the file one line at the time
Input #1, Streng
'Input streng into and array
StrArray = Split(Streng, ",")
For J = LBound(StrArray) To UBound(StrArray)
'Do what you want to do with the data
Hope this is what you are looking for.