For h = Lbound(Programm) to Ubound(Programm)
 PIDPorgramm(h) = Right(Programm(h),4) 
Next
 
For l = Lbound(NetstatInfo) to Ubound(NetstatInfo)
 PIDNetstatInfo(l) = Left(NetstatInfo(l),4) 
Next
 
For i = Lbound(Programm) to Ubound(Programm)
   For e = Lbound(NetstatInfo) to Ubound(NetstatInfo)
     'If Netstatinfo(e) = 0 Then Next e
     If PIDProgramm = PIDNetstatInfo Then
       Abspeichern
       'PIDNetstatInfo = 0
     End If
  Next
Next