i've been working on a code but 1 button refuses to work?
can anyone figger out why button1 isn't working, and fix it?



Public Class form1




Dim num1 As Single ''integer / long
Dim num2 As Single ''integer / long
Dim num3 As Single ''integer / long
Dim num4 As Single ''integer / long
Dim num5 As Single ''integer / long
Dim num6 As Single ''integer / long
Dim num7 As Single ''integer / long
Dim num8 As Single ''integer / long
Dim num9 As Single ''integer / long
Dim num10 As Single ''integer / long
Dim num11 As Single ''integer / long
Dim num12 As Single ''integer / long
Dim num13 As Single ''integer / long
Dim num14 As Single ''integer / long
Dim num15 As Single ''integer / long
Dim num16 As Single ''integer / long
Dim num17 As Single ''integer / long
Dim num18 As Single ''integer / long
Dim num19 As Single ''integer / long
Dim num20 As Single ''integer / long
Dim num21 As Single ''integer / long
Dim num22 As Single ''integer / long
Dim num23 As Single ''integer / long
Dim num24 As Single ''integer / long
Dim num25 As Single ''integer / long
Dim num26 As Single ''integer / long
Dim num27 As Single ''integer / long
Dim num28 As Single ''integer / long
Dim num29 As Single ''integer / long
Dim num30 As Single ''integer / long
Dim num31 As Single ''integer / long
Dim num32 As Single ''integer / long
Dim num33 As Single ''integer / long
Dim num34 As Single ''integer / long
Dim num35 As Single ''integer / long
Dim num36 As Single ''integer / long
Dim num37 As Single ''integer / long
Dim num38 As Single ''integer / long
Dim num39 As Single ''integer / long
Dim num40 As Single ''integer / long
Dim num41 As Single ''integer / long
Dim num42 As Single ''integer / long
Dim num43 As Single ''integer / long
Dim num44 As Single ''integer / long
Dim num45 As Single ''integer / long
Dim num46 As Single ''integer / long
Dim num47 As Single ''integer / long
Dim num48 As Single ''integer / long
Dim num49 As Single ''integer / long
Dim num50 As Single ''integer / long
Dim num51 As Single ''integer / long
Dim num52 As Single ''integer / long





Dim num57 As Single ''integer / long
Dim num58 As Single '' integer / long
Dim num59 As Single ''integer / long
Dim num60 As Single '' integer / long
Dim num61 As Single ''integer / long
Dim num62 As Single '' integer / long
Dim num63 As Single ''integer / long
Dim num64 As Single '' integer / long
Dim num65 As Single ''integer / long
Dim num66 As Single '' integer / long
Dim num67 As Single ''integer / long
Dim num68 As Single '' integer / long
Dim num69 As Single ''integer / long
Dim num70 As Single '' integer / long
Dim num71 As Single ''integer / long
Dim num72 As Single '' integer / long
Dim num73 As Single ''integer / long














Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try

If TextBox17.Text <> "" Then
num1 = TextBox17.Text()
End If
If TextBox26.Text <> "" Then
num2 = TextBox26.Text()
End If
If TextBox25.Text <> "" Then
num3 = TextBox25.Text()
End If
If TextBox24.Text <> "" Then
num4 = TextBox24.Text()
End If
If TextBox23.Text <> "" Then
num5 = TextBox23.Text()
End If
If TextBox22.Text <> "" Then
num6 = TextBox22.Text()
End If
If TextBox21.Text <> "" Then
num7 = TextBox21.Text()
End If
If TextBox20.Text <> "" Then
num8 = TextBox20.Text()
End If
If TextBox19.Text <> "" Then
num9 = TextBox19.Text()
End If
If TextBox18.Text <> "" Then
num10 = TextBox18.Text()
End If
If TextBox27.Text <> "" Then
num11 = TextBox27.Text()
End If
If TextBox38.Text <> "" Then
num12 = TextBox38.Text()
End If
If TextBox29.Text <> "" Then
num13 = TextBox29.Text()
End If
If TextBox30.Text <> "" Then
num14 = TextBox30.Text()
End If
If TextBox31.Text <> "" Then
num15 = TextBox31.Text()
End If
If TextBox32.Text <> "" Then
num16 = TextBox32.Text()
End If
If TextBox33.Text <> "" Then
num17 = TextBox33.Text()
End If
If TextBox34.Text <> "" Then
num18 = TextBox34.Text()
End If
If TextBox35.Text <> "" Then
num19 = TextBox35.Text()
End If
If TextBox36.Text <> "" Then
num20 = TextBox36.Text()
End If
If TextBox37.Text <> "" Then
num21 = TextBox37.Text()
End If
If TextBox28.Text <> "" Then
num22 = TextBox28.Text()
End If
If TextBox45.Text <> "" Then
num23 = TextBox45.Text()
End If
If TextBox51.Text <> "" Then
num24 = TextBox51.Text()
End If
If TextBox46.Text <> "" Then
num25 = TextBox46.Text()
End If
If TextBox52.Text <> "" Then
num26 = TextBox52.Text()
End If
If TextBox47.Text <> "" Then
num27 = TextBox47.Text()
End If
If TextBox53.Text <> "" Then
num28 = TextBox53.Text()
End If
If TextBox48.Text <> "" Then
num29 = TextBox48.Text()
End If
If TextBox54.Text <> "" Then
num30 = TextBox54.Text()
End If
If TextBox49.Text <> "" Then
num31 = TextBox49.Text()
End If
If TextBox55.Text <> "" Then
num32 = TextBox55.Text()
End If
If TextBox50.Text <> "" Then
num33 = TextBox50.Text()
End If
If TextBox56.Text <> "" Then
num34 = TextBox56.Text()
End If
If Label19.Text <> "" Then
num35 = Label19.Text()
End If
If Label20.Text <> "" Then
num36 = Label20.Text()
End If
If Label21.Text <> "" Then
num37 = Label21.Text()
End If
If Label22.Text <> "" Then
num38 = Label22.Text()
End If
If Label23.Text <> "" Then
num39 = Label23.Text()
End If
If Label24.Text <> "" Then
num40 = Label24.Text()
End If
If Label25.Text <> "" Then
num41 = Label25.Text()
End If
If Label26.Text <> "" Then
num42 = Label26.Text()
End If
If Label27.Text <> "" Then
num43 = Label27.Text()
End If
If Label28.Text <> "" Then
num44 = Label28.Text()
End If
If Label29.Text <> "" Then
num45 = Label29.Text()
End If
If Label36.Text <> "" Then
num46 = Label36.Text()
End If
If Label37.Text <> "" Then
num47 = Label37.Text()
End If
If Label38.Text <> "" Then
num48 = Label38.Text()
End If
If Label39.Text <> "" Then
num49 = Label39.Text()
End If
If Label40.Text <> "" Then
num50 = Label40.Text()
End If
If Label41.Text <> "" Then
num51 = Label41.Text()
End If

If TextBox57.Text <> "" Then
num57 = TextBox57.Text()
End If
If TextBox58.Text <> "" Then
num58 = TextBox58.Text()
End If
If TextBox59.Text <> "" Then
num59 = TextBox59.Text()
End If
If TextBox60.Text <> "" Then
num60 = TextBox60.Text()
End If
If TextBox61.Text <> "" Then
num61 = TextBox61.Text()
End If
If TextBox62.Text <> "" Then
num62 = TextBox62.Text()
End If
If TextBox63.Text <> "" Then
num63 = TextBox63.Text()
End If
If TextBox64.Text <> "" Then
num64 = TextBox64.Text()
End If
If TextBox65.Text <> "" Then
num65 = TextBox65.Text()
End If
If TextBox66.Text <> "" Then
num66 = TextBox66.Text()
End If
If TextBox67.Text <> "" Then
num67 = TextBox67.Text()
End If
If TextBox68.Text <> "" Then
num68 = TextBox68.Text()
End If
If TextBox69.Text <> "" Then
num69 = TextBox69.Text()
End If
If TextBox70.Text <> "" Then
num70 = TextBox70.Text()
End If
If TextBox71.Text <> "" Then
num71 = TextBox71.Text()
End If
If TextBox72.Text <> "" Then
num72 = TextBox72.Text()
End If
If TextBox73.Text <> "" Then
num73 = TextBox73.Text()
End If



Catch
MsgBox(ErrorToString)
End Try

num35 = num1 * num12 - (0.01 * num57 * (num1 * num12))
num36 = num2 * num13 - (0.01 * num58 * (num2 * num13))
num37 = num3 * num14 - (0.01 * num59 * (num3 * num14))
num38 = num4 * num15 - (0.01 * num60 * (num4 * num15))
num39 = num5 * num16 - (0.01 * num61 * (num5 * num16))
num40 = num6 * num17 - (0.01 * num62 * (num6 * num17))
num41 = num7 * num18 - (0.01 * num63 * (num7 * num18))
num42 = num8 * num19 - (0.01 * num64 * (num8 * num12))
num43 = num9 * num20 - (0.01 * num65 * (num9 * num20))
num44 = num10 * num21 - (0.01 * num66 * (num10 * num21))
num45 = num11 * num22 - (0.01 * num67 * (num11 * num22))
num46 = num23 * num24 - (0.01 * num68 * (num23 * num24))
num47 = num25 * num26 - (0.01 * num69 * (num25 * num26))
num48 = num27 * num28 - (0.01 * num70 * (num27 * num28))
num49 = num29 * num30 - (0.01 * num71 * (num29 * num30))
num50 = num31 * num32 - (0.01 * num72 * (num31 * num32))
num51 = num33 * num34 - (0.01 * num73 * (num33 * num34))




End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox19.Clear()
TextBox20.Clear()
TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()
TextBox24.Clear()
TextBox25.Clear()
TextBox26.Clear()
TextBox27.Clear()
TextBox28.Clear()
TextBox29.Clear()
TextBox30.Clear()
TextBox31.Clear()
TextBox32.Clear()
TextBox33.Clear()
TextBox34.Clear()
TextBox35.Clear()
TextBox36.Clear()
TextBox37.Clear()
TextBox38.Clear()
TextBox45.Clear()
TextBox46.Clear()
TextBox47.Clear()
TextBox48.Clear()
TextBox49.Clear()
TextBox50.Clear()
TextBox51.Clear()
TextBox52.Clear()
TextBox53.Clear()
TextBox54.Clear()
TextBox55.Clear()
TextBox56.Clear()
TextBox57.Clear()
TextBox58.Clear()
TextBox59.Clear()
TextBox60.Clear()
TextBox61.Clear()
TextBox62.Clear()
TextBox63.Clear()
TextBox64.Clear()
TextBox65.Clear()
TextBox66.Clear()
TextBox67.Clear()
TextBox68.Clear()
TextBox69.Clear()
TextBox70.Clear()
TextBox71.Clear()
TextBox72.Clear()
TextBox73.Clear()
TextBox74.Clear()
TextBox75.Clear()
TextBox76.Clear()
TextBox77.Clear()
TextBox78.Clear()
TextBox79.Clear()
TextBox80.Clear()
TextBox81.Clear()
TextBox82.Clear()
TextBox83.Clear()
TextBox84.Clear()
TextBox85.Clear()
TextBox86.Clear()
TextBox87.Clear()
TextBox88.Clear()
TextBox89.Clear()
TextBox90.Clear()