Sub Vergleich()

Dim punkte1 As New Collection
Dim dat As String
Dim p(0 To 7) As String
Dim i As Integer

Open "Blockauslesung.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, p(0) ' Blockname
        Line Input #1, p(1) ' Blockreferenznummer
        Line Input #1, p(2) ' x-wert
        Line Input #1, p(3) ' y-wert
        Line Input #1, p(4) ' z-wert
        Line Input #1, p(5) ' Drehwinkel RAD
        Line Input #1, p(6) ' Drehwinkel DEG
        Line Input #1, p(7) ' Drehwinkel DEG (nach Menü)
        
        punkte1.Add p
                
    Wend
    Close #1
    
    Open "AP-Koordinaten.txt" For Input As #2
    Open "Vergleich.txt" For Output As #3
        
    While Not EOF(2)
        
        Line Input #2, dat ' Blockname
        Line Input #2, p(0) ' Text Anschlusspunkt
        Line Input #2, p(1) ' x-wert
        Line Input #2, p(2) ' y-wert
        Line Input #2, p(3) ' z-wert
    
        For i = 1 To punkte1.Count
            
            If punkte1(i)(2) = p(1) And _
                punkte1(i)(3) = p(2) And _
                punkte1(i)(4) = p(3) Then
                             
                Write #3, p(0)
                Write #3, punkte1(i)(0)
                Write #3, punkte1(i)(1)
                Write #3, punkte1(i)(2) + 0
                Write #3, punkte1(i)(3) + 0
                Write #3, punkte1(i)(4) + 0
                Write #3, punkte1(i)(5)
                Write #3, punkte1(i)(6)
                Write #3, punkte1(i)(7)
                
            End If
            
        Next
              
    
    Wend
    
    Close #2
    Close #3


End Sub