' benötigt:
' 1 Form, 1 Label, 1 Button, 1 Timer
Option Explicit
Private Function generiere_Wurf() As Integer
    Call Randomize(Timer)
    generiere_Wurf = Int((6 * Rnd) + 1)
End Function
Private Sub Command1_Click()
    Timer1.Interval = 2
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = generiere_Wurf
    Timer1.Interval = Timer1.Interval * 1.3
    Debug.Print Timer1.Interval
    If Timer1.Interval >= 1000 Then Timer1.Interval = 0
End Sub

Gru