Data Transfer from Text file to Excel & MS Access table

[VBFnewcomer]

I just learned how to copy data in a ADO recordset into Excel File using this link by Si_the_geek.
I also learned some Textfile manipulations from the links of dee-u & Pengate.

Thank you everyone.

Now I am wondering how to transfer the data
i) from a textfile (which is having ":" as delimiter) to access table
ii) from a textfile (which is having ":" as delimiter) to Excel File
ii) from a Excel file to an MS Access Table

I tried using the below code. No data was transferred. So its obviously incorrect

Dim fNo As Integer
    Dim sTemp As String
    fNo = FreeFile
    
    Open app.Path & "\Text1.txt" For Input As fNo
        Do While Not EOF(fNo)
            Line Input #fNo, sTemp
        Loop
        oSheet.Range("A1").Value = sTemp
        oWorkbook.SaveAs App.Path & "\TestBook.xls"
    Close fNo

I request the members show me how to do the above or point to some tutorial.
Thankyou.