VB Code:
Dim X As Long
Dim SumX1 As Single
Dim SumX2 As Single
Dim NumValues As Integer
'Seperate Numbers'
Array1 = Split(txtNumbers.Text, ",")
Total = 0
For X = 0 To UBound(Array1)
Total = Total + Array1(X)
Next X
SumX1 = SumX1 + Total
SumX2 = SumX2 + Total ^ 2
NumValues = UBound(Array1) + 1
'Calculate and Display Mean
Mean = SumX1 / NumValues
lblMean.Caption = Mean
'Calculate and Display Standard Deviation
Stdev = Sqr((NumValues * SumX2 - SumX1 ^ 2) / (NumValues * (NumValues - 1)))
lblDeviation.Caption = Stdev