VB 请问为什么会在第三行溢出？

Private Sub Command1_Click()
M = Abs(J - K)
E = 90 * M / (PAI * R)
I = 30 * L / (PAI * R)
D = 2 * R * Sin(E)

If Me.Option1(0).Value Then F = H + 3 * I + E
W = F + E
If Me.Option1(1).Value Then F = H - 3 * I - E
W = F - E
X = A + D * Cos(F * PAI / 180)
Y = B + D * Sin(F * PAI / 180)
G = X + S * Cos((W + 90) * PAI / 180)
O = Y + S * Sin((W + 90) * PAI / 180)
T = X + N * Cos((W - 90) * PAI / 180)
Z = Y + N * Sin((W - 90) * PAI / 180)
Text10.Text = T
Text11.Text = Z
Text12.Text = G
Text13.Text = O

End Sub

Private Sub Form_Load()
Dim A, B, H, R, L, K, J, X, Y, G, O, T, Z, N, E, M, S, I As Single
Const PAI = 3.1415926
A = Val(Text1.Text)
B = Val(Text2.Text)
J = Val(Text3.Text)
K = Val(Text4.Text)
H = Val(Text5.Text)
R = Val(Text6.Text)
L = Val(Text7.Text)
N = Val(Text8.Text)
S = Val(Text9.Text)
End Sub

这么多变量，为什么不用数组？
Dim A, B, H, R, L, K, J, X, Y, G, O, T, Z, N, E, M, S, I
Const PAI = 3.1415926
Private Sub Command1_Click()
M = Abs(J - K)
E = 90 * M / (PAI * R)
I = 30 * L / (PAI * R)
D = 2 * R * Sin(E)

If Me.Option1(0).Value Then F = H + 3 * I + E
W = F + E
If Me.Option1(1).Value Then F = H - 3 * I - E
W = F - E
X = A + D * Cos(F * PAI / 180)
Y = B + D * Sin(F * PAI / 180)
G = X + S * Cos((W + 90) * PAI / 180)
O = Y + S * Sin((W + 90) * PAI / 180)
T = X + N * Cos((W - 90) * PAI / 180)
Z = Y + N * Sin((W - 90) * PAI / 180)
Text10.Text = T
Text11.Text = Z
Text12.Text = G
Text13.Text = O

End Sub

Private Sub Form_Load()
A = Val(Text1.Text)
B = Val(Text2.Text)
J = Val(Text3.Text)
K = Val(Text4.Text)
H = Val(Text5.Text)
R = Val(Text6.Text)
L = Val(Text7.Text)
N = Val(Text8.Text)
S = Val(Text9.Text)
End Sub