a8.Text = (Val(a7.Text) * Val(a6.Text))
Dim s As Double = Convert.ToDouble("4") * Convert.ToDouble("3.2")