Dim die1 As Integer
        Dim randGen As New Random
        Dim count As Integer
        Dim num1s As Integer
        Dim num2s As Integer
        Dim num3s As Integer
        Dim num4s As Integer
        Dim num5s As Integer
        Dim num6s As Integer