Private Sub textChanger(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged, TextBox7.TextChanged, TextBox8.TextChanged, TextBox9.TextChanged, TextBox10.TextChanged
            Dim num6 As Integer
            Dim num7 As Integer
            Dim num8 As Integer
            Dim num9 As Integer
            Dim num10 As Integer
            Integer.TryParse(TextBox6.Text, num6)
            Integer.TryParse(TextBox7.Text, num7)
            Integer.TryParse(TextBox8.Text, num8)
            Integer.TryParse(TextBox9.Text, num9)
            Integer.TryParse(TextBox10.Text, num10)
            TextBox22.Text = num6 + num7 + num8 + num9 + num10
            TextBox23.Text = TextBox22.Text
End Sub