Option Explicit
Sub ImportTXT()
Dim Record As String
Dim Container As Variant
Dim i As Integer, ii As Byte
Dim ThePath As String
ThePath = ThisWorkbook.Path & "\tempost.txt" 'A Adapter...
Open ThePath For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, Record
Container = Split(Record, Chr(9))
For ii = 1 To 3
With ThisWorkbook.Worksheets("Bil")
If IsDate(Container(ii - 1)) Then
.Cells(i, ii) = CDate(Container(ii - 1))
Else
.Cells(i, ii) = Container(ii - 1)
End If
End With
Next ii
Loop
Close #1
End Sub