Public Function Pruf()
Dim a As Integer
Dim eins As Integer
Dim zwei As Integer
Dim drei As Integer
Dim vier As Integer
Dim fünf As Integer
Dim sechs As Integer
Dim Gesamt As Integer
Dim Bonus As Integer
Dim Summe1 As Integer
Dim dreierp As Integer
Dim viererp As Integer
Dim full As Integer
Dim kleine As Integer
Dim große As Integer
Dim Chance As Integer
Dim Kniffel As Integer
Dim Summe2 As Integer
Dim Endsum As Integer
 
For a = 1 To 5
    If Label42(a) = 1 Then
        eins = eins + 1
    End If
'If Einer > 0 Then
Einer = eins
'End If
Next
 
 
For a = 1 To 5
    If Label42(a) = 2 Then
        zwei = zwei + 2
    End If
'If Zweier > 0 Then
Zweier = zwei
'End If
Next
 
For a = 1 To 5
    If Label42(a) = 3 Then
        drei = drei + 3
    End If
'If Dreier = 0 Then
    Dreier = drei
'End If
Next
 
For a = 1 To 5
    If Label42(a) = 4 Then
        vier = vier + 4
    End If
'If Vierer = 0 Then
    Vierer = vier
'End If
Next
 
For a = 1 To 5
    If Label42(a) = 5 Then
        fünf = fünf + 5
    End If
'If Fünfer = 0 Then
    Fünfer = fünf
'End If
Next
 
For a = 1 To 5
    If Label42(a) = 6 Then
        sechs = sechs + 6
    End If
'If Sechser = 0 Then
    Sechser = sechs
'End If
Next
 
 
 
'If Gesamt = 0 Then
    Gesamt = eins + zwei + drei + vier + fünf + sechs
    If Gesamt > 63 Then
        Bonus = 35
        Summe1 = Gesamt + Bonus
    End If
'End If
 
If Wuerfel1 = Wuerfel2 = Wuerfel3 Or Wuerfel1 = Wuerfel2 = Wuerfel4 Or Wuerfel1 _
  = Wuerfel2 = Wuerfel5 Or Wuerfel2 = Wuerfel4 = Wuerfel3 Or Wuerfel2 = _
  Wuerfel5 = Wuerfel3 Or Wuerfel4 = Wuerfel5 = Wuerfel3 Then
    'If dreierp = 0 Then
        dreierp = Wuerfel1 + Wuerfel2 + Wuerfel3 + Wuerfel4 + Wuerfel5
    'End If
End If
 
If Wuerfel1 = Wuerfel2 = Wuerfel3 = Wuerfel4 Or Wuerfel1 = Wuerfel2 = Wuerfel3 _
  = Wuerfel5 Or Wuerfel1 = Wuerfel2 = Wuerfel4 = Wuerfel5 Or Wuerfel5 = _
  Wuerfel2 = Wuerfel3 = Wuerfel4 Or Wuerfel1 = Wuerfel5 = Wuerfel3 = Wuerfel4 _
  Then
    'If viererp = 0 Then
        viererp = Wuerfel1 + Wuerfel2 + Wuerfel3 + Wuerfel4 + Wuerfel5
    'End If
End If
 
'If full = 0 Then
    If Wuerfel1 = Wuerfel2 = Wuerfel3 And Wuerfel4 = Wuerfel5 Or Wuerfel1 = _
      Wuerfel2 = Wuerfel4 And Wuerfel3 = Wuerfel5 Or Wuerfel1 = Wuerfel2 = _
      Wuerfel5 And Wuerfel4 = Wuerfel3 Or Wuerfel1 = Wuerfel4 = Wuerfel3 And _
      Wuerfel2 = Wuerfel5 Or Wuerfel1 = Wuerfel5 = Wuerfel3 And Wuerfel4 = _
      Wuerfel2 Or Wuerfel4 = Wuerfel2 = Wuerfel3 And Wuerfel1 = Wuerfel5 Or _
      Wuerfel5 = Wuerfel2 = Wuerfel3 And Wuerfel4 = Wuerfel1 Or Wuerfel1 = _
      Wuerfel4 = Wuerfel5 And Wuerfel2 = Wuerfel3 Or Wuerfel4 = Wuerfel5 = _
      Wuerfel3 And Wuerfel1 = Wuerfel2 Or Wuerfel4 = Wuerfel2 = Wuerfel5 And _
      Wuerfel1 = Wuerfel3 Then
        full = 25
    End If
'End If
 
'If kleine = 0 Then
'    If Wuerfel1 = 1 and Wuerfel2 = 2 and Wuerfel3 =3 and Wuerfel 4=
'    End If
'End If
 
'If große = 0 Then
'End If
 
'If Chance = 0 Then
    Chance = Wuerfel1 + Wuerfel2 + Wuerfel3 + Wuerfel4 + Wuerfel5
'End If
 
'If Kniffel = 0 Then
    If Wuerfel1 = Wuerfel2 = Wuerfel3 = Wuerfel4 = Wuerfel5 Then
        Kniffel = Wuerfel1 + Wuerfel2 + Wuerfel3 + Wuerfel4 + Wuerfel5
    End If
'End If
 
Summe2 = full + kleine + große + Chance + dreierp + viererp + Kniffel
 
Endsum = Summe1 + Summe2
 
End Function