Dim MillTime As Integer
 
Private Function GrabMillTime(FilePath As String)
Dim sCode As String
Dim sLines() As String
Dim AdditioN As Integer
 
sCode = txt_ReadAll(FilePath)
sLines = Split(sCode, vbNewLine)
 
For i = 0 To (UBound(sLines) - 1)
    If Left(sLines(i), 6) = "Dauer#" Then
 
        Dim SplitTime() As String
        Dim OutTime() As String
 
        OutTime = Split(sLines(i), "#")
        SplitTime = Split(OutTime(1), ":")
 
        MillTime = MillTime + CInt(SplitTime(0)) + (CInt(SplitTime(1)) / 60) + ( _
          CInt(SplitTime(2) / 3600))
    End If
Next
 
 
MsgBox (MillTime)
End Function

Anzahl_WERKZEUGWEGE:#1#
WERKZEUGWEG-LISTE
1. SET-WERKZEUGWEG
Dauer#0:00:00#
2. SET-WERKZEUGWEG
Dauer#1:36:10#
3. SET-WERKZEUGWEG
Dauer#0:16:03#