Private Sub Command1_Click()
Dim w1, w2, w3, w4 As Integer
Dim x As Integer
Dim w1k, w2k, w3k, w4k As Boolean
Dim gesamt As Integer
 
 
Randomize
/4mal würfeln
w1 = Int(Rnd * 6 + 1)
w2 = Int(Rnd * 6 + 1)
w3 = Int(Rnd * 6 + 1)
w4 = Int(Rnd * 6 + 1)
 
gesamt = 0
w1k = False
 
/6 mal weil jede augenzahl kontrolliert wird
For x = 1 To 6
 
/bei jedem x (augenzahl) checken, ob ein würfel NICHT die augenzahl geschafft _
  hat
If w1 >= x Then w1k = True Else w1k = False
If w2 >= x Then w2k = True Else w2k = False
If w3 >= x Then w3k = True Else w3k = False
If w4 >= x Then w4k = True Else w4k = False
 
/wenn ja :es wird einer aussortiert
If w1k = False Or w2k = False Or w3k = False Or w4k = False Then x = 6  
 
Next
/zusammenrechnen der einzelnen augen
If w1k = True Then gesamt = gesamt + w1
If w2k = True Then gesamt = gesamt + w2
If w3k = True Then gesamt = gesamt + w3
If w4k = True Then gesamt = gesamt + w4
 
End Sub

LG,Robert