Private Sub Command1_Click()
   Text1.Text = GrabMillTime("F:\Neu\Test\TimeToDec\Test.txt")
End Sub
 
Private Function GrabMillTime(FilePath As String) As Single
   Dim sCode As String
   Dim sLines() As String
   Dim SplitTime() As String
   Dim dTime As Date
   Dim i As Long
   Dim OutTime() As String
 
   sCode = txt_ReadAll(FilePath)
   sLines = Split(sCode, vbNewLine)
 
   For i = 0 To UBound(sLines)
       If Left(sLines(i), 6) = "Dauer#" Then
 
           OutTime = Split(sLines(i), "#")
           dTime = dTime + OutTime(1)
 
       End If
   Next
 
   SplitTime = Split(dTime, ":")
   GrabMillTime = CSng(SplitTime(0)) + (CSng(SplitTime(1)) / 60) + _
      (CSng(SplitTime(2) / 3600))
 
End Function
 
Public Function txt_ReadAll(ByVal sFile As String) As String
   Dim F As Integer
 
   F = FreeFile
   Open sFile For Binary As #F
      txt_ReadAll = Space$(LOF(F))
      Get #F, , txt_ReadAll
   Close #F
 
End Function