Regent:

First, add the function

Private Function fGetSum(myControl() as Textbox) as String

Dim i as Integer

Dim sum as Double

For i = myConTrol().Lbound to MyControl().UBound

If IsNumeric(MyControl(i).Text) then

Sum = Sum + CDbl(myControl(i).text)

Else

MsgBox "Invalid Entry", VBOKONLY, "Enter Numeric"

End If

Next i

fGetSum = cStr(Sum)

End Function

Now when you need to show the sum just add:

TextSum = fGetSum(theTextArrayName())

You should properly replace TextSum with the name of the sum text box, , and TextArrayName with your 10 array name

To show the sum when the user is entering the number

in the myTextArrayName_Change Event add:

If IsNumeric(myTextArrayName(Index)) then

textSum = fGetSum (theTextArrayName())

Regards

Dalin

First, add the function

Private Function fGetSum(myControl() as Textbox) as String

Dim i as Integer

Dim sum as Double

For i = myConTrol().Lbound to MyControl().UBound

If IsNumeric(MyControl(i).Tex

Sum = Sum + CDbl(myControl(i).text)

Else

MsgBox "Invalid Entry", VBOKONLY, "Enter Numeric"

End If

Next i

fGetSum = cStr(Sum)

End Function

Now when you need to show the sum just add:

TextSum = fGetSum(theTextArrayName()

You should properly replace TextSum with the name of the sum text box, , and TextArrayName with your 10 array name

To show the sum when the user is entering the number

in the myTextArrayName_Change Event add:

If IsNumeric(myTextArrayName(

textSum = fGetSum (theTextArrayName())

Regards

Dalin