Hi
Versuch das mal

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Rechne_Click()
Dim nZAHL As Integer
Dim NEUZAHL As Integer
Dim ALTZAHL As Integer
Dim ZAHLREIHE As Integer
Dim Text As String
NEUZAHL = 0
nZAHL = 5
Text = ""

Do
NEUZAHL = NEUZAHL + nZAHL
Text = Text & ", " & CStr(NEUZAHL)
With lblZahlenreihe
.Caption = Text
.Refresh
End With
Sleep 50
Loop While NEUZAHL < 100
End Sub

Hier noch die Form als JPG





Gruß

Joee Dancer