Sub Sputnik()

End Sub

Private Sub CommandButton1_Click()
' ðàñ÷åòû
' ñóùåñòâóþùåå ïîëîæåíèå
TextBox25.Value = CDbl(TextBox1.Value) + CDbl(TextBox13.Value)
TextBox26.Value = CDbl(TextBox2.Value) + CDbl(TextBox14.Value)
TextBox27.Value = CDbl(TextBox3.Value) + CDbl(TextBox15.Value)
TextBox28.Value = CDbl(TextBox4.Value) + CDbl(TextBox16.Value)
TextBox29.Value = CDbl(TextBox5.Value) + CDbl(TextBox17.Value)
TextBox30.Value = CDbl(TextBox6.Value) + CDbl(TextBox18.Value)
TextBox31.Value = CDbl(TextBox7.Value) + CDbl(TextBox19.Value)
TextBox32.Value = CDbl(TextBox8.Value) + CDbl(TextBox20.Value)
TextBox33.Value = CDbl(TextBox9.Value) + CDbl(TextBox21.Value)
TextBox34.Value = CDbl(TextBox10.Value) + CDbl(TextBox22.Value)
TextBox35.Value = CDbl(TextBox11.Value) + CDbl(TextBox23.Value)
TextBox36.Value = CDbl(TextBox12.Value) + CDbl(TextBox24.Value)
' ýòàï 1
TextBox65.Value = CDbl(TextBox41.Value) + CDbl(TextBox53.Value)
TextBox66.Value = CDbl(TextBox42.Value) + CDbl(TextBox54.Value)
TextBox67.Value = CDbl(TextBox43.Value) + CDbl(TextBox55.Value)
TextBox68.Value = CDbl(TextBox44.Value) + CDbl(TextBox56.Value)
TextBox69.Value = CDbl(TextBox45.Value) + CDbl(TextBox57.Value)
TextBox70.Value = CDbl(TextBox46.Value) + CDbl(TextBox58.Value)
TextBox71.Value = CDbl(TextBox47.Value) + CDbl(TextBox59.Value)
TextBox72.Value = CDbl(TextBox48.Value) + CDbl(TextBox60.Value)
TextBox73.Value = CDbl(TextBox49.Value) + CDbl(TextBox61.Value)
TextBox74.Value = CDbl(TextBox50.Value) + CDbl(TextBox62.Value)
TextBox75.Value = CDbl(TextBox51.Value) + CDbl(TextBox63.Value)
TextBox76.Value = CDbl(TextBox52.Value) + CDbl(TextBox64.Value)
' ýòàï 2
TextBox101.Value = CDbl(TextBox77.Value) + CDbl(TextBox89.Value)
TextBox102.Value = CDbl(TextBox78.Value) + CDbl(TextBox90.Value)
TextBox103.Value = CDbl(TextBox79.Value) + CDbl(TextBox91.Value)
TextBox104.Value = CDbl(TextBox80.Value) + CDbl(TextBox92.Value)
TextBox105.Value = CDbl(TextBox81.Value) + CDbl(TextBox93.Value)
TextBox106.Value = CDbl(TextBox82.Value) + CDbl(TextBox94.Value)
TextBox107.Value = CDbl(TextBox83.Value) + CDbl(TextBox95.Value)
TextBox108.Value = CDbl(TextBox84.Value) + CDbl(TextBox96.Value)
TextBox109.Value = CDbl(TextBox85.Value) + CDbl(TextBox97.Value)
TextBox110.Value = CDbl(TextBox86.Value) + CDbl(TextBox98.Value)
TextBox111.Value = CDbl(TextBox87.Value) + CDbl(TextBox99.Value)
TextBox112.Value = CDbl(TextBox88.Value) + CDbl(TextBox100.Value)
' èòîã
' ñóùåñòâóþùåå ïîëîæåíèå
TextBox38.Value = CDbl(TextBox1.Value) + CDbl(TextBox13.Value) + CDbl(TextBox2.Value) + CDbl(TextBox14.Value) + _
CDbl(TextBox3.Value) + CDbl(TextBox15.Value) + CDbl(TextBox4.Value) + CDbl(TextBox16.Value) + CDbl(TextBox5.Value) + _
CDbl(TextBox17.Value) + CDbl(TextBox6.Value) + CDbl(TextBox18.Value) + CDbl(TextBox7.Value) + CDbl(TextBox19.Value) + _
CDbl(TextBox8.Value) + CDbl(TextBox20.Value) + CDbl(TextBox9.Value) + CDbl(TextBox21.Value) + CDbl(TextBox10.Value) + _
CDbl(TextBox22.Value) + CDbl(TextBox11.Value) + CDbl(TextBox23.Value) + CDbl(TextBox12.Value) + CDbl(TextBox24.Value)
' ýòàï 1
TextBox39.Value = CDbl(TextBox41.Value) + CDbl(TextBox53.Value) + CDbl(TextBox42.Value) + CDbl(TextBox54.Value) + _
CDbl(TextBox43.Value) + CDbl(TextBox55.Value) + CDbl(TextBox44.Value) + CDbl(TextBox56.Value) + CDbl(TextBox45.Value) + _
CDbl(TextBox57.Value) + CDbl(TextBox46.Value) + CDbl(TextBox58.Value) + CDbl(TextBox47.Value) + CDbl(TextBox59.Value) + _
CDbl(TextBox48.Value) + CDbl(TextBox60.Value) + CDbl(TextBox49.Value) + CDbl(TextBox61.Value) + CDbl(TextBox50.Value) + _
CDbl(TextBox62.Value) + CDbl(TextBox51.Value) + CDbl(TextBox63.Value) + CDbl(TextBox52.Value) + CDbl(TextBox64.Value)
' ýòàï 2
TextBox37.Value = CDbl(TextBox77.Value) + CDbl(TextBox89.Value) + CDbl(TextBox78.Value) + CDbl(TextBox90.Value) + _
CDbl(TextBox79.Value) + CDbl(TextBox91.Value) + CDbl(TextBox80.Value) + CDbl(TextBox92.Value) + CDbl(TextBox81.Value) + _
CDbl(TextBox93.Value) + CDbl(TextBox82.Value) + CDbl(TextBox94.Value) + CDbl(TextBox83.Value) + CDbl(TextBox95.Value) + _
CDbl(TextBox84.Value) + CDbl(TextBox96.Value) + CDbl(TextBox85.Value) + CDbl(TextBox97.Value) + CDbl(TextBox86.Value) + _
CDbl(TextBox98.Value) + CDbl(TextBox87.Value) + CDbl(TextBox99.Value) + CDbl(TextBox88.Value) + CDbl(TextBox100.Value)
' ïðèðîñò íàãðóçîê
TextBox40.Value = (CDbl(TextBox77.Value) + CDbl(TextBox89.Value) + CDbl(TextBox78.Value) + CDbl(TextBox90.Value) + _
CDbl(TextBox79.Value) + CDbl(TextBox91.Value) + CDbl(TextBox80.Value) + CDbl(TextBox92.Value) + CDbl(TextBox81.Value) + _
CDbl(TextBox93.Value) + CDbl(TextBox82.Value) + CDbl(TextBox94.Value) + CDbl(TextBox83.Value) + CDbl(TextBox95.Value) + _
CDbl(TextBox84.Value) + CDbl(TextBox96.Value) + CDbl(TextBox85.Value) + CDbl(TextBox97.Value) + CDbl(TextBox86.Value) + _
CDbl(TextBox98.Value) + CDbl(TextBox87.Value) + CDbl(TextBox99.Value) + CDbl(TextBox88.Value) + CDbl(TextBox100.Value)) - _
(CDbl(TextBox1.Value) + CDbl(TextBox13.Value) + CDbl(TextBox2.Value) + CDbl(TextBox14.Value) + CDbl(TextBox3.Value) + _
CDbl(TextBox15.Value) + CDbl(TextBox4.Value) + CDbl(TextBox16.Value) + CDbl(TextBox5.Value) + CDbl(TextBox17.Value) + _
CDbl(TextBox6.Value) + CDbl(TextBox18.Value) + CDbl(TextBox7.Value) + CDbl(TextBox19.Value) + CDbl(TextBox8.Value) + _
CDbl(TextBox20.Value) + CDbl(TextBox9.Value) + CDbl(TextBox21.Value) + CDbl(TextBox10.Value) + CDbl(TextBox22.Value) + _
CDbl(TextBox11.Value) + CDbl(TextBox23.Value) + CDbl(TextBox12.Value) + CDbl(TextBox24.Value))
End Sub

Private Sub CommandButton2_Click()
For Each num In UserForm1.Controls
   If TypeName(num) = "TextBox" Then num.Text = ""
Next num
End Sub

Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub