Datumsformat englisch deutsch

Sub Next1()
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long, lngTemp As Long
Dim varOutput As Variant, varTemp() As Variant, varValue As Variant
Dim strPath As String
Dim FF As Integer
Dim CloseFind As String, OpenFind As String, PosFind As Integer, TimeFind As Date
OpenFind = ";Opened;"
CloseFind = ";Closed; "
strPath = "\\192.168.100.143\d\PxApplication\Logs" & Cells(1, 2).Value & "\"
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
Call Range(Cells(2, 1), Cells(Rows.Count, 4)).ClearContents
Set objFileSearch = New clsFileSearch
With objFileSearch
.NewSearch = True
.CaseSenstiv = True
.Extension = "*.log"
.FolderPath = strPath
.SearchLike = "*.*"
.SubFolders = True
If .Execute(Sort_by_Date_Create, Sort_Order_Descending) > 0 Then
ReDim varOutput(1 To .FileCount, 1 To 4)
For lngIndex = 1 To .FileCount
lngTemp = 0
Erase varTemp
varOutput(lngIndex, 1) = .Files(lngIndex).FI_FileName
'varOutput(lngIndex, 2) = .Files(lngIndex).FI_LastModify
'varOutput(lngIndex, 3) = .Files(lngIndex).FI_DateCreate
FF = FreeFile
Open .Files(lngIndex).FI_FullName For Input As #FF
Do While Not EOF(FF)
ReDim Preserve varTemp(lngTemp)
Line Input #FF, varTemp(lngTemp)
PosFind = InStr(varTemp(lngTemp), OpenFind)
If PosFind > 0 Then
TimeFind = CDate(Mid(Replace(varTemp(lngTemp), ";", " "), PosFind + Len( _
OpenFind) + 1))
varOutput(lngIndex, 3) = TimeFind
End If
PosFind = InStr(varTemp(lngTemp), CloseFind)
If PosFind > 0 Then
TimeFind = CDate(Mid(Replace(varTemp(lngTemp), ";", " "), PosFind + Len( _
CloseFind) + 1))
varOutput(lngIndex, 2) = TimeFind
End If
lngTemp = lngTemp + 1
Loop
Close #FF
If UBound(varTemp) > 3 Then
If InStr(1, varTemp(UBound(varTemp) - 3), ";") > 0 Then
varValue = Split(varTemp(UBound(varTemp) - 3), ";")
If UBound(varValue) > 3 Then
varOutput(lngIndex, 4) = varValue(4)
End If
End If
End If
Next
End If
End With
Range("A2").Resize(UBound(varOutput, 1), 4) = varOutput
Set objFileSearch = Nothing
End Sub