two dimensional array

Im new to vb and am trying to work out how to populate a two dimensional array. But i am tring to insert number 1 in when the col = the random number.

Example i have 5 random numbers eg 1 would be 10000 ,2 01000 ,3 00100 etc this would enable me to add up the col and determine how many of each random number i have.

Dim dice(4, 5) As Integer

For i = 0 To dice.GetUpperBound(0)

For j = 0 To dice.GetUpperBound(1)

Dim x As Int16 = CInt(Rnd() * 5)

dice(i, x) = 1

can any one help please. Thanks in advance