[larbihamri]

ارجو ان يكون هذا ما تريد الوصول اليه 

كود :

  Dim x, y As Double

       x = 0.05

       y = 20

       If TextBox1.Text <> "" Then
           TextBox2.Text = Val(TextBox1.Text) * x + y
       End If

       If TextBox3.Text <> "" Then
           TextBox4.Text = Val(TextBox3.Text) * x + y
       End If

       If TextBox5.Text <> "" Then
           TextBox6.Text = Val(TextBox5.Text) * x + y
       End If

       If TextBox7.Text <> "" Then
           TextBox8.Text = Val(TextBox7.Text) * x + y
       End If