Как устранить возникшие ошибки в коде

Function Amp(ByVal x As Variant)
A = K * Sqr((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 * x(i) ^ 3 - A3 * x(i)) ^ 2) / ((A1 * x(i) ^ 2 + A3) ^ 2 + (A2 * x(i) - A0 * x(i) ^ 3) ^ 2)
Amp = A
End Function
Function Faz(ByVal x As Variant)
F = -Atn(T1 * x(i)) - Atn(T2 * x(i)) - Atn(T3 * x(i))
Faz = F
End Function
 
Private Sub Command1_Click()
Picture1.Scale (-100, 100)-(100, -100)
DrawWidth = 2
Line (-100, 0)-(100, 0)
Line (0, 100)-(-100, 0)
DrawWith = 1
x = Array(0, 0.01, 0.05, 0.1, 0.5, 1, 2, 5, 10, 20, 50, 100, 1000, 10000, 1000000)
For i = LBound(x) To UBound(x)
Line -(A(x(i)), F(x(i)))
Next i
End Sub

Picture1.Scale (-100, 100)-(100, -100)
Picture1.DrawWidth = 2
Picture1.Line (-100, 0)-(100, 0)
Picture1.Line (0, 100)-(-100, 0)
Picture1.DrawWidth = 1

Picture1.Line -(A(X(i)), F(X(i)))

Function Amp(ByVal x As Variant)
A = K * Sqr((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 * x(i) ^ 3 - A3 * x(i)) ^ 2) / ((A1 * x(i) ^ 2 + A3) ^ 2 + (A2 * x(i) - A0 * x(i) ^ 3) ^ 2)
Amp = A
End Function

Option Explicit
Const K = 1.8, T1 = 10, T2 = 3, T3 = 1, A0 = T1 * T2 * T3, A1 = T1 * T2 + T2 * T3 + T1 * T3, A2 = T1 + T2 + T3, A3 = 1
Function Amp(ByVal X As Variant)
Amp = K * Sqr((A1 * X ^ 2 + A3) ^ 2 + (A0 * X ^ 3 - A3 * X) ^ 2) / ((A1 * X ^ 2 + A3) ^ 2 + (A2 * X - A0 * X ^ 3) ^ 2)
End Function
Function Faz(ByVal X As Variant)
Faz = -Atn(T1 * X) - Atn(T2 * X) - Atn(T3 * X)
End Function
 
Private Sub Command1_Click()
Dim X
Dim i
Dim A0, F0
Dim A1, F1
Picture1.Scale (-5, 5)-(5, -5)
Picture1.DrawWidth = 2
Picture1.Line (-5, 0)-(5, 0)
Picture1.Line (0, -5)-(0, 5)
Picture1.DrawWidth = 2
X = Array(0, 0.01, 0.05, 0.1, 0.5, 1, 2, 5, 10, 20, 50, 100, 1000, 10000, 1000000)
For i = LBound(X) To UBound(X)
A0 = Amp(X(i))
F0 = Faz(X(i))
'Debug.Print i, X(i); A0, F0
If A1 <> 0 Then Picture1.Line -(A0, F0)
A1 = A0
F1 = F0
Next i
End Sub

If A1 <> 0 Then Picture1.Line -(A0, F0)