Dim F As Integer
Dim nSek As Long
Dim sLine As String
Dim nGesamt As Long
Dim sTime As String
Dim nMin As Long
 
F = FreeFile
Open "Datei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  sTime = Left$(sLine, 7) 
  nSek = Val(Mid$(sTime, 3, 2)) * 60 + Val(Mid$(sTime, 6, 2))
  If Left$(sTime, 1) <> "+" Then nSek = -nSek
  nGesamt = nGesamt + nSek
Wend
Close #F
 
nMin = nGesamt \ 60
nSek = nGesamt - nMin * 60
 
sTime = Format$(nMin, "00") & ":" & Format$(nSek, "00")
MsgBox "Gesamt: " & sTime

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de