Private Function GrabMillTime(FilePath As String)
Dim sCode As String
Dim sLines() As String
Dim AdditioN As Integer
Dim SplitTime As Date
 
sCode = txt_ReadAll(FilePath)
sLines = Split(sCode, vbNewLine)
 
For i = 0 To UBound(sLines)
    If Left(sLines(i), 6) = "Dauer#" Then
 
        Dim OutTime() As String
 
        OutTime = Split(sLines(i), "#")
        SplitTime = SplitTime + OutTime(1)
 
    End If
Next
 
 
MsgBox (SplitTime)
End Function