Koddaki Hatanın Tespiti

[slcflz]

Merhaba Arkadaşlar aşağıda vereceğim kodda bir yerde hata veriyor ama çözemedim nerden kaynaklandığını bulabilen arkadaşlara şimdiden tşkler

Private Sub CommandButton7_Click()
If TextBox53.Value = "" Then

MsgBox "Lütfen Önce T.C.M.B Kurlarını Alınız.....", , "Selçuk Derki.."
Exit Sub
End If


If TextBox55.Value = "Euro" Then

TextBox68.Value = TextBox14.Value
End If

If TextBox56.Value = "Usd" Then

TextBox69.Value = CDbl(TextBox15.Value) / CDbl(TextBox53.Value)
End If

If TextBox57.Value = "Usd" Then

TextBox70.Value = CDbl(TextBox16.Value) / CDbl(TextBox53.Value)
End If


If TextBox58.Value = "Usd" Then

TextBox71.Value = CDbl(TextBox17.Value) / CDbl(TextBox53.Value)
End If

If TextBox59.Value = "Usd" Then

TextBox72.Value = CDbl(TextBox18.Value) / CDbl(TextBox53.Value)
End If


If TextBox60.Value = "Usd" Then

TextBox73.Value = CDbl(TextBox19.Value) / CDbl(TextBox53.Value)
End If


If TextBox61.Value = "Usd" Then

TextBox74.Value = CDbl(TextBox20.Value) / CDbl(TextBox53.Value)
End If

If TextBox62.Value = "Usd" Then

TextBox75.Value = CDbl(TextBox21.Value) / CDbl(TextBox53.Value)
End If


If TextBox63.Value = "Usd" Then

TextBox76.Value = CDbl(TextBox22.Value) / CDbl(TextBox53.Value)
End If

If TextBox64.Value = "Usd" Then

TextBox77.Value = CDbl(TextBox23.Value) / CDbl(TextBox53.Value)
End If


If TextBox65.Value = "Usd" Then

TextBox78.Value = CDbl(TextBox24.Value) / CDbl(TextBox53.Value)
End If


If TextBox66.Value = "Usd" Then

TextBox79.Value = CDbl(TextBox25.Value) / CDbl(TextBox53.Value)
End If


If TextBox67.Value = "Usd" Then

TextBox80.Value = CDbl(TextBox26.Value) / CDbl(TextBox53.Value)
End If


If TextBox55.Value = "Usd" Then

TextBox68.Value = CDbl(TextBox14.Value) / CDbl(TextBox53.Value)


End If
If TextBox56.Value = "Euro" Then
TextBox69.Value = TextBox15.Value


End If

If TextBox57.Value = "Euro" Then
TextBox70.Value = TextBox16.Value
End If
If TextBox58.Value = "Euro" Then
TextBox71.Value = TextBox17.Value
End If
If TextBox59.Value = "Euro" Then
TextBox72.Value = TextBox18.Value
End If
If TextBox60.Value = "Euro" Then
TextBox73.Value = TextBox19.Value
End If
If TextBox61.Value = "Euro" Then
TextBox74.Value = TextBox20.Value
End If

If TextBox62.Value = "Euro" Then
TextBox75.Value = TextBox21.Value
End If
If TextBox63.Value = "Euro" Then
TextBox76.Value = TextBox22.Value
End If

If TextBox64.Text = "Euro" Then
TextBox77.Text = TextBox23.Text
End If
If TextBox65.Text = "Euro" Then
TextBox78.Text = TextBox24.Text
End If

If TextBox66.Text = "Euro" Then
TextBox79.Text = TextBox25.Text
End If
If TextBox67.Text = "Euro" Then
TextBox80.Text = TextBox26.Text
End If

For i = 1 To 93

if Controls("Textbox"&i).Value = "" then
Controls("Textbox"&i).Value = 0
End if
Next


TextBox81.Value = CDbl(TextBox68.Value) * CDbl(TextBox1.Value) / 1000
TextBox82.Value = CDbl(TextBox69.Value) * CDbl(TextBox2.Value) / 1000
TextBox83.Value = CDbl(TextBox70.Value) * CDbl(TextBox3.Value) / 1000
TextBox84.Value = CDbl(TextBox71.Value) * CDbl(TextBox4.Value) / 1000
TextBox85.Value = CDbl(TextBox72.Value) * CDbl(TextBox5.Value) / 1000
TextBox86.Value = CDbl(TextBox73.Value) * CDbl(TextBox6.Value) / 1000
TextBox87.Value = CDbl(TextBox74.Value) * CDbl(TextBox7.Value) / 1000
TextBox88.Value = CDbl(TextBox75.Value) * CDbl(TextBox8.Value) / 1000
TextBox89.Value = CDbl(TextBox76.Value) * CDbl(TextBox9.Value) / 1000
TextBox90.Value = CDbl(TextBox77.Value) * CDbl(TextBox10.Value) / 1000
TextBox91.Value = CDbl(TextBox78.Value) * CDbl(TextBox11.Value) / 1000
TextBox92.Value = CDbl(TextBox79.Value) * CDbl(TextBox12.Value) / 1000
TextBox93.Value = CDbl(TextBox80.Value) * CDbl(TextBox13.Value) / 1000


TextBox94.Text = CDbl(TextBox81.Value) + CDbl(TextBox82.Value) + CDbl(TextBox83.Value) + CDbl(TextBox84.Value) + CDbl(TextBox85.Value) + CDbl(TextBox86.Value) + CDbl(TextBox87.Value) + CDbl(TextBox88.Value) + CDbl(TextBox89.Value) + CDbl(TextBox90.Value) + CDbl(TextBox91.Value) + CDbl(TextBox92.Value) + CDbl(TextBox93.Value)
End Sub

 

[slcflz]

bur formulde hem hata veriyor hemde yanlış hesaplama yapıyor yakında bir dosya ekleyeceğim ama şimdiden kontrol edilirse sevinirim