[السيد الغالي]

استخدم  هذا الكود وسيعمل بدون اخطاء

كود :

Private Sub Text2_Change()
On Error Resume Next
T1 = Val(Text1.Text)
T2 = Val(Text2.Text)
Text3 = ((1 / T1) * T2)
End Sub

اما بخصوص كود مسح النصوص استخدم الكود التالي

كود :

Text1 = ""
Text2 = ""
Text3 = ""