Count Occurrences of a Value in a Column

[bexxx]

Can I please have some simple coding that will allow me to do this?
The example of what I need to count is as follows:
The data is retreived from a Microsoft Excel Spreadsheet.
In VB6 it prints the following on screen:

choice1       choice2       choice3
1             4            2
2             3            1
4             2            1
3             1            4 
4             1            3
3             2            1
2             4            1
3             4            2
4             1            3 
3             2            1

I want the program to count the number of times each number occurs in each row, and then print this on screen.