[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم ان شاء الله يكون هذا هو الحل
اولا قم بتعريف المتغيرات من نوع double

كود :

Dim a, b, c, d, f, g, h, i, j, k, tva, ttc, ven, ach As Double

وعدل هذه الاسطر استبدل كلمة Val  بـ CDbl اي تحويل القيمة الى دبل

كود :

a = CDbl(TextBox1.Text)
       f = CDbl(TextBox5.Text)
       h = CDbl(TextBox7.Text)
       i = CDbl(TextBox8.Text)
       j = CDbl(TextBox9.Text)
       k = CDbl(TextBox10.Text)

جرب واعلمني بالنتيجة لانني قمت بالتجربة وضغطت على الزر مرتين وثلاث