Kodlar hangi işi yapıyor?

[Açılın ben mühendisim]

Kolay gelsin arkadaşlar,
Elimde bu şekilde word belgesine yapıştırılmış kodlar var. Excel dosyasında kodları çalıştırmam gerekiyor ancak sürekli hata alıyorum.
Yardımcı olursanız çok sevinirim.


Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If CheckBox1.Checked Then
If CheckBox6.Checked Then
TextBox2.Text = TextBox1.Text / 1500
ElseIf CheckBox7.Checked Then
TextBox2.Text = TextBox1.Text / 2000
ElseIf CheckBox8.Checked Then
TextBox2.Text = TextBox1.Text / 1000
ElseIf CheckBox9.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox10.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox11.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
End If
End If
If CheckBox2.Checked Then
If CheckBox6.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox7.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox8.Checked Then
TextBox2.Text = TextBox1.Text / 200
ElseIf CheckBox9.Checked Then
TextBox2.Text = TextBox1.Text / 200
ElseIf CheckBox10.Checked Then
TextBox2.Text = TextBox1.Text / 180
ElseIf CheckBox11.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
End If
End If
If CheckBox3.Checked Then
If CheckBox6.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox7.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox8.Checked Then
TextBox2.Text = TextBox1.Text / 90
ElseIf CheckBox9.Checked Then
TextBox2.Text = TextBox1.Text / 300
ElseIf CheckBox10.Checked Then
TextBox2.Text = TextBox1.Text / 150
ElseIf CheckBox11.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
End If
End If
If CheckBox4.Checked Then
If CheckBox6.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox7.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox8.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox9.Checked Then
TextBox2.Text = TextBox1.Text / 600
ElseIf CheckBox10.Checked Then
TextBox2.Text = TextBox1.Text / 200
ElseIf CheckBox11.Checked Then
TextBox2.Text = TextBox1.Text / 600
End If
End If
If CheckBox5.Checked Then
If CheckBox6.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox7.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox8.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox9.Checked Then
TextBox2.Text = "Böyle bir işlem yoktur."
ElseIf CheckBox10.Checked Then
TextBox2.Text = TextBox1.Text / 145
ElseIf CheckBox11.Checked Then
TextBox2.Text = TextBox1.Text / 400
End If
End If
End Sub
End Class