Ok, im makeing a yatzee type game and i'm having a little trouble with checking for matches. If you have any ideas on how i can get it work or just improve my code, that would be great. here's what i have so far:

dim matches(5)
for i =cmddice.lbound to cmddice.ubound
for j=cmddice.lbound to cmddice.ubound
if i<>j and cmddice(i).caption = cmddice(j).caption then
matches(cmddice(i).caption)=matches(cmddice(i).caption)+1
end if
next i
next i

Thats what im trying to use to determine how many dice i have of each value. what should i do?