Sub HäufigkeitSeitLetztemWertwechsel _
    (ByVal file_in As String, ByVal file_out As String)
 
   Dim ik As Integer, ak As Integer 'Kanäle
   Dim number1 As Integer, number2 As Integer 'Vergleich
   Dim i As Integer 'Loop
   Dim c As Integer 'Zähler
   Dim n As Integer 'gezählter Wert nach letztem Wechsel
 
   ik = FreeFile
   Open file_in For Input As #ik
 
   Input #ik, number1
   c = 1: n = number1
 
   While Not EOF(ik)
      Input #ik, number2
      If Not number1 = number2 Then
         c = 1: n = number2 'Wert wechselt
      Else
         c = c + 1 'Wert wechselt nicht/zählen
      End If
 
      number1 = number2 'für nächsten Vergleich
   Wend
 
   Close #ik
 
   'Ausgabedatei füllen
   ak = FreeFile
   Open file_out For Output As #ak
 
   For i = 1 To c
      Print #ak, n;
   Next i
   Print #ak, "  Laufzeit: "; c
 
   Close #ak
 
End Sub