Yardım Formül Hatası Vermesi

Form2.TextBox24.Text = kabuldeğeri.Text

If Form2.TextBox24.Text > Form2.TextBox4.Text Then
Form2.TextBox34.Text = Form2.TextBox4.Text
Form2.TextBox25.Text = Form2.TextBox24.Text - Form2.TextBox4.Text
Else
Form2.TextBox34.Text = Form2.TextBox24.Text
Form2.TextBox25.Text = 0
End If

If Form2.TextBox25.Text > Form2.TextBox5.Text Then
Form2.TextBox35.Text = Form2.TextBox5.Text
Form2.TextBox26.Text = Form2.TextBox25.Text - Form2.TextBox5.Text
Else
Form2.TextBox35.Text = Form2.TextBox25.Text
Form2.TextBox26.Text = 0
End If

If Form2.TextBox26.Text > Form2.TextBox6.Text Then
Form2.TextBox36.Text = Form2.TextBox6.Text
Form2.TextBox27.Text = Form2.TextBox26.Text - Form2.TextBox6.Text
Else
Form2.TextBox36.Text = Form2.TextBox26.Text
Form2.TextBox27.Text = 0
End If

şeklinde devam etmekte olan kodum bulunmaktadır.

Burada yer alan,

Form2.TextBox4.Text = 35000
Form2.TextBox5.Text = 45000
Form2.TextBox6.Text = 80000
Form2.TextBox7.Text = 240000
Form2.TextBox8.Text = 600000
Form2.TextBox9.Text = 1250000
Form2.Textbox10.Text = 1750000

değerine sahiptir.

Kod ile yapmak istediğim şudur.

TextBox24 büyüktür TextBox4 ise TextBox34'e 35.000 yazacak aynı zamanda TextBox25'e ise TextBox24 - TextBox4 değerini yazacak.
TextBox24 küçük veya eşit TextBox4 ise TextBox34'e TextBox24 değerini yazacak, TextBox25'e ise 0 değerini yazacak.

Rakam değeri sıra ile 3500, 45000, 80000, 240000, 600000, 1250000, 1750000 şeklinde değişmektedir.

Kod bu şekilde TextBox33 değerine kadar aynı şekilde devam edecek.

Ben yazdığım takdirde genelde TextBox24 ve 25 için sorun çıkmıyor, ancak sonrasında ne yazık ki sorun yaşamaktayım.