Dim fc As Integer, i1%, i2%, i3%, i4&
fc = FreeFile
Open "C:\daten\demodaten.txt" For Input As #fc
 
Dim i2_col As New Collection, i3_col As New Collection
Dim freq(10000) As Integer 'Eventuell mit Redim Preserve dynamisch verländern 
 
Dim index As Integer, vorhanden As Boolean
While Not EOF(fc)
   Input #fc, i1, i2, i3, i4
   vorhanden = False
   For index = 1 To i2_col.count
      If i2_col(index) = i2 And i3_col(index) = i3 Then
        freq(index) = freq(index) + 1: vorhanden = True: Exit For
      End If
   Next index
 
   If Not vorhanden Then
      i2_col.Add (i2): i3_col.Add (i3): freq(i2_col.count) = 1
   End If
Wend
 
Close #fc
 
Open "C:\daten\demoresult.txt" For Output As #fc
For index = 1 To i2_col.count
   Print #fc, CStr(i2_col(index)) & " - " & CStr(i3_col(index)) & _
   ": " & CStr(freq(index))
Next index
 
Close #fc