Private Sub Command2_Click()
 
Dim K As Double  'Konstante in der Formel
Dim S As Double  'Sättigungsgrenze
Dim A As Long       'Anzahl der Rechnungen und somit der B's
Dim Z As Long       'Zähler
Dim B(0 To A) As Double  'Rechnungsergebnis.. funktioniert so aber nicht..
 
K = Text1.Text
S = Text2.Text
B(0) = Text3.Text
A = Text4.Text
Z = 0
 
Do While Z = A
B(Z + 1) = B(Z) + K * (S - B(Z))
Z = Z + 1
Loop
 
Text5.Text = B(Z)
End Sub

B(Z + 1) = B(Z) + K * (S - B(Z))

B(0 + 1) = B(0) + K * (S - B(0))