Why Can't I make this work? HELP!?

[Moonder]

Here is the code that I have for my run button, my problem is similar to that of scorps53, I need to use an array to tally the results, but not only do I need confirmation on using that, right I need help getting the right numbers for my " dice":

Dim die As Integer
 
        For die = 0 To 5
            processDieOne()
        Next
        'processDieOne()
        'processDieTwo()
        'processDieThree()
        'processDieFour()
        'processDieFive()
        'processDieSix()
 
    End Sub
 
    Sub processDieOne()
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do Until dieB = 6
            dieA += 1
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "    (" & dieA & ", " & dieB & _
                                                     ", " & dieC & ", " & dieD & ")")
        Loop
 
 
    End Sub
    Sub processDieTwo()
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do Until dieC = 6
            dieA = 2
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "    (" & dieA & ", " & dieB & _
                                                     ", " & dieC & ", " & dieD & ")")
        Loop
    End Sub
    Sub processDieThree()
 
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do Until dieC = 6
            dieA = 3
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "    (" & dieA & ", " & dieB & _
                                                     ", " & dieC & ", " & dieD & ")")
        Loop
 
    End Sub
    Sub processDieFour()
 
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do While dieC > 6
            dieA = 4
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "    (" & dieA & ", " & dieB & _
                                                     ", " & dieC & ", " & dieD & ")")
        Loop
 
    End Sub
    Sub processDieFive()
 
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do While dieC > 6
            dieA = 5
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "    (" & dieA & ", " & dieB & _
                                                      ", "  & dieC & ", " & dieD & ")")
        Loop
 
    End Sub
    Sub processDieSix()
 
        Dim dieA As Integer = 0
        Dim dieB As Integer = 0
        Dim dieC As Integer = 0
        Dim dieD As Integer = 0
        Dim sum As Integer
        Dim count As Integer = 0
        Dim tally(16) As Object
 
        Do While dieC > 6
            dieA = 6
            dieB += dieA
            dieC += dieA
            dieD += dieA
            sum = dieB + dieC + dieD
            tally(count) = Val(sum)
            count += 1
            lstFrequencyTable.Items.Add(sum & "  (" & dieA & ", " & dieB & ", "  _
                                                                   & dieC & ", " & dieD & ")")
        Loop
 
    End Sub
End Class