Text-Datei einlesen mit Datumsformat | Herbers Excel-Forum

Hallo alle zusammen,
mit nachfolgenden Makro lese ich eine TXT Datei ein.
https://www.herber.de/bbs/user/67649.txt
Option Explicit

Sub lesen()
Dim strTxt As String, arrTxt
Application.ScreenUpdating = False
Open "C:\Daten.txt" For Input As #1
Workbooks.Add
Do While Not EOF(1)
Line Input #1, strTxt
arrTxt = Split(strTxt, ";")
With Sheets(1)
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, UBound(arrTxt) + 1) =  _
arrTxt
End With
Loop
Close 1
Sheets(1).Columns(2).NumberFormat = "dd/mm/yyyy hh:mm:ss"
Application.ScreenUpdating = True
End Sub