Построение графика, найти ошибку в коде - VB

Формулировка задачи:

Dim K As Variant
Dim A3 As Variant
Dim T1 As Variant
Dim T2 As Variant
Dim T3 As Variant
Dim x As Variant
Function T(ByVal x As Variant) As Variant
T = ((P * K) / (A3 + K)) * ((1 - Exp(-x(i) / T1)) * (1 - Exp(-x(i) / T2)) * (1 - Exp(-x(i) / T3)))
End Function
Private Sub Command1_Click()
d = 10
K = 0.6 * 1 * 1 * 3
A3 = 1
T1 = 10
T2 = 3
T3 = 1
P = 100
Picture1.Scale (-1000, 65)-(1000, -65)
Picture1.Line (-1000, 0)-(1000, 0)
Picture1.Line (0, 65)-(0, -65)
x = Array(0, 0.01, 0.05, 0.1, 0.2, 0.5, 1#, 2#, 4#, 6#, 8#, 10, 14, 18, 22, 30, 40, 50, 75, 100, 150, 200, 300, 500, 1000)
For i = LBound(x) To UBound(x)
Picture1.PSet (x, T(x(i))), vbRed
Next i
End Sub

При запуске ругается на T = ((P * K) / (A3 + K)) * ((1 - Exp(-x(i) / T1)) * (1 - Exp(-x(i) / T2)) * (1 - Exp(-x(i) / T3))). В чем может быть дело?

Решение задачи: «Построение графика, найти ошибку в коде»

textual
                            Листинг программы 
                        

                            Dim K As Variant
Dim P As Variant
Dim A3 As Variant
Dim T1 As Variant
Dim T2 As Variant
Dim T3 As Variant
Dim x As Variant
Function T(ByVal x As Variant) As Variant
T = ((P * K) / (A3 + K)) * (1 - Exp(-x / T1)) * _
(1 - Exp(-x / T2)) * (1 - Exp(-x / T3))
End Function
Private Sub Command1_Click()
d = 10
K = 0.6 * 1 * 1 * 3
A3 = 1
T1 = 10
T2 = 3
T3 = 1
P = 100
Picture1.Scale (-10, 65)-(1000, -65)
Picture1.Line (-1000, 0)-(1000, 0)
Picture1.Line (0, 65)-(0, -65)
 
For x = 0 To 1000 Step 0.01
Picture1.PSet (x, T(x)), vbRed
Next
End Sub
                        