Моделирование загрязнения реки

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim a, b, c, d, konc, yt, n As Single
        Dim t, l As Integer
        Dim x() As Single
 
 
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        d = Val(TextBox4.Text)
        t = CInt(Val(TextBox5.Text))
        l = CInt(Val(TextBox6.Text))
 
        If l > t Then
            MsgBox("Значение лага должно быть меньше, чем значение времени!")
        End If
 
        ReDim x(t)
        x(0) = 0
 
        Do Until i < t
 
            For i = 0 To t
                If t < l + 1 Then
                    yt = 0
                Else
                    yt = a * (t - 1 - l) + b
                    x(i) = yt + (1 - b) * x(i - 1)
 
                End If
                konc = a * b * (x(i + 1) - 2 * x(i) + x(i + 1) - c * (x(i) - x(i - 1) - d * a * x(i)))
                n = c * x(i) - a * b * (x(i + 1) - x(i))
 
            Next
        Loop
        TextBox7.Text = TextBox7.Text & CStr(konc * n) & vbCrLf
 
    End Sub
 
End Class