Option Explicit

Private Sub Calcular_Click()
Dim i&, Act&, Flag As Boolean
Act = 13
Flag = True
Sucesión.Text = ""
For i = 1 To Val(NúmeroNúmeros.Text)
    If Flag Then
        Act = Act + 3
        Flag = Not Flag
    Else
        Act = Act - 2
        Flag = Not Flag
    End If
    Sucesión.Text = Sucesión.Text & Act & ","
    DoEvents
Next i
End Sub