textboxlar arası bölme işleminde hata

[ozmacig]

Sayın hocalarım

ekteki araç programında veri sayfası üzerinden çalışan bir userform (kayıt_form) ve userform üzerinde textboxlar mevcut. bu texboxlar üzerinde yaptığım verileri kendi aralarında toplama,carpma ve bölme işlemleri yapıp sayfa üzerine aktarıyorlar.

sorunum şu;
aşağıda kodlarını verdiğim texboxt bölme işlemlerinde yeni bir sayfa actığımda hata almaktayım bir türlü halledemedim. yardımcı olursanız sevinirim..

Private Sub TextBox13_Change()
If TextBox4.Text = "" Then
MsgBox "KM BOŞ GECEMESİNİZ.. ", vbInformation, C & " Hücresi"
Exit Sub
End If
If TextBox13 <> "" Then
TextBox14.Value = Val(TextBox13.Value) / Val(TextBox4.Value)
End If
End Sub

Private Sub TextBox4_Change()
If TextBox4 <> "" Then
TextBox6.Value = Val(TextBox5.Value) / Val(TextBox4.Value)
End If
If TextBox13 <> "" Then
TextBox14.Value = Val(TextBox13.Value) / Val(TextBox4.Value)
End If
End Sub

Private Sub TextBox5_Change()
If TextBox4.Text = "" Then
MsgBox "KM BOŞ GECEMESİNİZ.. ", vbInformation, C & " Hücresi"
Exit Sub
End If
If TextBox5 <> "" Then
TextBox6.Value = Val(TextBox5.Value) / Val(TextBox4.Value)
End If
End Sub