Dim numbersdone(100) As Integer
Dim donecounter As Integer
 
Private Function CheckLine(ByVal sLine As String) As Boolean
 
    Dim i As Integer, k As Integer, snum() As String
    If donecounter < 0 Then CheckLine = True: Exit Function
    snum() = Split(sLine, " ")
    For i = 0 To UBound(snum)
       If IsNumeric(snum(i)) Then
          If snum(i) <> 0 Then
             For k = 0 To donecounter
                If CInt(snum(i)) = numbersdone(k) Then
                   CheckLine = False: Exit Function
                End If
             Next k
          End If
       End If
    Next i
    CheckLine = True
End Function
 
Private Sub Command1_Click(index As Integer)
 
donecounter = -1
Do
 
   Dim ic As Integer, indx As Integer, counter As Integer, sLine As String
   Dim snum() As String, mynumbers() As Integer
   Dim i%, k%, tausch%
   ReDim mynumbers(100)
   ic = FreeFile: counter = -1
   Open "F:\Daten\Neues Textdokument.txt" For Input As ic
   While Not EOF(ic)
      Line Input #ic, sLine
      If CheckLine(sLine) Then
         snum() = Split(sLine, " ")
         For indx = 0 To UBound(snum)
            If IsNumeric(snum(indx)) Then
               counter = counter + 1
               If counter > UBound(mynumbers) Then
                  ReDim Preserve mynumbers(counter + 100)
               End If
               mynumbers(counter) = CInt(snum(indx))
            End If
         Next indx
      End If
   Wend
 
   Close ic
 
   If counter => 0 Then
      ReDim Preserve mynumbers(counter)
 
 
      Dim MyDistinctNumbers() As Integer, MyFrequencies() As Integer
 
      Call CountFrequencies(mynumbers(), MyDistinctNumbers(), MyFrequencies())
 
      For i = 0 To UBound(MyFrequencies) - 1
         For k = i + 1 To UBound(MyFrequencies)
            If MyFrequencies(i) < MyFrequencies(k) Then
               Tausch = MyFrequencies(i)
               MyFrequencies(i) = MyFrequencies(k)
               MyFrequencies(k) = Tausch
               Tausch = MyDistinctNumbers(i)
               MyDistinctNumbers(i) = MyDistinctNumbers(k)
               MyDistinctNumbers(k) = Tausch
            End If
         Next k
     Next i
 
     Dim display As String
     display = CStr(MyDistinctNumbers(0))
     donecounter = donecounter + 1
     numbersdone(donecounter) = MyDistinctNumbers(0)
     For i = 1 To UBound(MyFrequencies)
        If MyFrequencies(i) = MyFrequencies(0) Then
          display = display & " " & CStr(MyDistinctNumbers(i))
          donecounter = donecounter + 1
          numbersdone(donecounter) = MyDistinctNumbers(i)
        End If
     Next i
 
     MsgBox display
   End If
Loop While counter > 0
 
exit sub