Private Function hole_TeilStart(DateiPfad As String)
 
Dim teilstart As String
hole_TeilStart = ""
Dim nLine As Long
 
   Open DateiPfad For Input As #1
       Do Until EOF(1)
       nLine = nLine + 1
       Input #1, teilstart
   If nLine = 8 Then
       hole_TeilStart = Mid$(teilstart, 6, 11)
      Else
  End If
Loop
Close #1
 
End Function