txtFormul: formulün olduğu alan
txtMiktar:ürün miktarı
txtSonuc: hesaplama sonucu
Me.txtSonuc.ControlSource = "=" & Replace(Replace(Me.txtFormul, ",", "."), "x", Replace(Me.txtMiktar, ",", "."))
ben doğrudan metin kutuları üzerinden yaptım ama siz aynı şeyi alanlar üzerinden de yapabilirsiniz
sorun çıkarırsa çalışmanızı eklersiniz duruma göre yeniden oluşturulur