Dim RANG(5) As Integer
Dim RANG2(5) As Integer


Private Sub CommandButton1_Click()

RANG(0) = Val(TextBox4) + Val(TextBox1) + Val(TextBox5) + Val(TextBox6)
RANG(1) = Val(TextBox7) + Val(TxtBox12) + Val(TextBox11) + Val(TextBox10)
RANG(2) = Val(TextBox13) + Val(TextBox18) + Val(TextBox17) + Val(TextBox16)
RANG(3) = Val(TextBox25) + Val(TextBox30) + Val(TextBox29) + Val(TextBox28)
RANG(4) = Val(TextBox31) + Val(TextBox36) + Val(TextBox35) + Val(TextBox34)
RANG(5) = Val(TextBox37) + Val(TextBox42) + Val(TextBox41) + Val(TextBox40)

TextBox3 = RANG(0)
TextBox9 = RANG(1)
TextBox15 = RANG(2)
TextBox27 = RANG(3)
TextBox33 = RANG(4)
TextBox39 = RANG(5)

TextBox43 = Val(TextBox1) + Val(TextBox7) + Val(TextBox13) + Val(TextBox25) + Val(TextBox31) + Val(TextBox37)
TextBox48 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox30) + Val(TextBox36) + Val(TextBox42)
TextBox47 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox29) + Val(TextBox35) + Val(TextBox41)
TextBox46 = Val(TextBox4) + Val(TextBox10) + Val(TextBox16) + Val(TextBox28) + Val(TextBox34) + Val(TextBox40)
TextBox45 = Val(TextBox3) + Val(TextBox9) + Val(TextBox15) + Val(TextBox27) + Val(TextBox33) + Val(TextBox39)

TextBox2 = RANG2(0)
TextBox8 = RANG2(1)
TextBox14 = RANG2(2)
TextBox26 = RANG2(3)
TextBox32 = RANG2(4)
TextBox38 = RANG2(5)