Dim i As Integer
Dim minus As Double
Dim wert As Double
 
wert = 7.75
 
Do
minus = GetRnd(wert)
If minus > 0 Then
If minus < wert Then
wert = wert - minus
Load lblOutput(i)
lblOutput(i).Caption = minus
i = i + 1
 
Else
Load lblOutput(i)
lblOutput(i).Caption = wert
i = i + 1
 
wert = wert - wert
End If
End If
 
DoEvents
Loop While wert > 0