Runtime Error '6': Overflow

[sndogg7]

I get this error code when running my code.

Option Base 1
Sub t_Dist()
CI = 95
TEST = Array(246, 235, 249, 215, 221, _
           222, 210, 238, 201, 245, _
           250, 215, 245, 243, 211, _
           241, 234, 222, 204, 226)
           
u = 228.65
n = UBound(TEST)
Sum = 0
For i = 1 To n
    Sum = Sum + TEST(i)
    Diff2 = (TEST(i) - x_bar) ^ 2
Next i
x_bar = Sum / n
Diff2 = 0
For i = 1 To n
    Diff2 = Diff2 + (TEST(i) - x_bar) ^ 2
Next i
 
sx_bar = s / (n ^ 0.5)
T1 = ((x_bar - u) / sx_bar)
Z1 = Z_CI(CI)
X1_bar = Z1 * sx_bar + x_bar
Z2 = -Z1
X2_bar = Z2 * sx_bar + x_bar
End Sub
Function Z_CI(CI)
Pi = Application.WorksheetFunction.Pi
imax = 1000
di = s / imax
LHS = (1 - CI / 100) / 2
SUM_Z = 0
For i = 1 To imax
    Z = -4 + (i - 1) * di
    SUM_Z = SUM_Z + di * Exp(-(Z ^ 2) / 2)
    RHS = SUM_Z / ((2 * Pi) ^ 0.5)
    If RHS > LHS Then Exit For
Next i
Z_CI = -Z
End Function

 

[Zack Barresse]

Your variable 's' doesn't have a value, thus it is zero. Here is the offending line...

sx_bar = s / (n ^ 0.5)

Give 's' a non-zero value.

Also, I highly recommend declaring your variables.