Private Function GrabMillTime(ByVal FilePath As String, _
                              ByRef splittime() As Date) As Boolean
 
Dim sCode As String
Dim sLines() As String
Dim AdditioN As Integer
Dim i As Integer, k As Integer
 
On Error GoTo fehler
 
k = -1
sCode = txt_ReadAll(FilePath)
sLines = Split(sCode, vbNewLine)
ReDim splittime(UBound(sLines))
For i = 0 To UBound(sLines)
    If Left(sLines(i), 6) = "Dauer#" Then
 
        Dim OutTime() As String
 
        OutTime = Split(sLines(i), "#")
        k = k + 1
        splittime(k) = CDate(OutTime(1))
 
    End If
Next
ReDim Preserve splittime(k)
GrabMillTime = True
Exit Function
fehler:
GrabMillTime = False
 
End Function