Import Text File Contains Emails Into Access Table

I copy my emails from microsoft inbox and save it into a textfile and try to read the information and save it into access table. But during i read the textfile i am stuck.

Dim fso, fil, ts, sContents
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(server.mappath("myemails.txt"))
Set ts = fil.openastextstream(1)
sContents = ts.readall
aBuild = Split(sContents, "From:", 2)
sFrom = Split(aBuild(1), vbCrLf, 2)(0)
response.write(sForm)
ts.close
Set ts = nothing
Set fil = nothing
Set fso = nothing