السلام عليكم
استبدل الكود السابق بهذا الكود
Private Sub TextBox2_Change()
If Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Then
Me.TextBox3.Value = ""
Exit Sub
End If
Me.TextBox3.Value = Val(Me.TextBox1.Value) / Val(Me.TextBox2.Value)
Me.TextBox3.Value = Format(Me.TextBox3.Value, "0.00")
End Sub