Private Sub LSG_LG_2(ByVal sVersion As String)
 
        Dim i As Integer
        Dim unit As String
 
        Dim iMenge As Integer = 0
 
        For i = 0 To UBound(arKoeper, 1)
            Dim sInhalt As String = arKoeper(i).ToString
 
            unit = Mid(arKoeper(i).ToString, 1, 3)
 
            If unit = "LOC" Then
                ReDim Preserve arLastgangLOC(UBound(arLastgangLOC) + 1)
                arLastgangLOC(UBound(arLastgangLOC) - 1) = i
            End If
 
            If unit = "PIA" Then
                ReDim Preserve arLastgangPIA(UBound(arLastgangPIA) + 1)
                arLastgangPIA(UBound(arLastgangPIA) - 1) = i
 
            End If
 
 
            If i = UBound(arKoeper) Then
                VergleichenLOC_PIA(arLastgangLOC, arLastgangPIA)
 
            End If
        Next
 
 
    End Sub

  If i = UBound(arKoeper) Then
                VergleichenLOC_PIA(arLastgangLOC, arLastgangPIA)
        End If