Const LogFileName As String = "C:\TEXTFILE.LOG"
Dim CL As Integer, tLine As String, c As Variant
    Range("B3:B12").Select
CL = FreeFile
    Open LogFileName For Input Access Read Shared As #CL
    Do While Not EOF(CL)
        Line Input #CL, tLine
    Loop
        ActiveCell.Value = tLine
    Close #CL