i want to store the employees quarter sales and at the same time i want them to average with the companies quarter sales any ideas? Code: Const intNUMBER_OF_EMPLOYEES As Integer = 10 Const intMAX_EMPLOYEE As Integer = intNUMBER_OF_EMPLOYEES - 1 ' class level variables Private Names(intMAX_EMPLOYEE) As String Private quarter1(9) As Single Private quarter2(9) As Single Private quarter3(9) As Single Private quarter4(9) As Single Private Sub txtQuarter1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtQuarter1.Validating, txtQuarter4.Validating, txtQuarter3.Validating, txtQuarter2.Validating Dim input As String = CType(sender, TextBox).Text If IsNumeric(input) Then Dim number As Integer = CInt(input) Else MessageBox.Show("Please enter an integer.") e.Cancel = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim intCount As Integer For intCount = 0 To intMAX_EMPLOYEE Names(intCount) = TextBox1.Text