Local nSum,Num Store 0 To nSum,Num For lnI=1 To Alen(Anum,1) nSum=nSum+Anum[lnI] Num=Num+Anum[lnI]^2 EndFor ?Sqrt((Num/Alen(Anum,1))-(nSum/Alen(Anum,1))^2)