randomize 1 to 80 numbers better than the Randomize function vb6

I have created a keno game that selects 20 numbers out of 80 using the Randomize function.
The program also tracks which numbers have been selected the most.
after running the app hundreds of thousands of times on different computers i have determined that the Randomize function is not truly random.
for instance Runs: 219,098 Numbers 1 to 80
these numbers are always at the the top of the list, but not always in the same exact order
on different computers
53 58054
40 57993
52 57957
49 57948
54 57909
39 57883
55 57864
37 57860
35 57847
36 57823
33 57735
The numbers 70 to 80 are always at the bottom of the list
eg
77 51991
78 51950
80 51940
70 51842
71 51785
79 51381
72 51087
73 50876
74 50604
76 50504
75 50389
how can i correct this ?
using vb6