Question

I got this comma separated file with a bunch of numbers

The only thing that I need to be able to do is to find what number that appears the most time

Ex:
817;9;516;11;817;408;9;817

then the result will be 817
I hope you understand what I am trying to do.

Answer 1

I would suggest using the FileSystemObjects, specifically the OpenTextFile method to read the file, then use split function to separate based on columns. Then iterate the array returned, and count the number of times each number occurs.

The following code will count your array for you. It uses the useful Dictionary object.

Set counts = CreateObject("Scripting.Dictionary")

For i = Lbound(arr) to Ubound(arr)
    If Not counts.Exists(arr(i)) Then
        counts.add arr(i), 1
    Else
        currCount = counts.Item(arr(i))
        counts.Item(arr(i)) = currCount + 1
    End If
Next 

nums = counts.Keys()
currMax = 0
currNum = 0

For i = Lbound(nums) to Ubound(nums)
    If counts.Item(nums(i)) > currMax Then
        currMax = counts.Item(nums(i))
        currNum = nums(i)
    End If
Next 

num = currNum ' Most often found number
max = currMax ' Number of times it was found