Problemas con las comas en visual basic 2008

Hola, tengo un problema al realizar diferentes operaciones en visual basic 2008.
el problema es el siguiente,
Dim a As double = Val(TextBox1.Text)
Dim b As double = Val(TextBox2.Text)
TextBox3.Text = (a * b)
y el otro
Dim a As double = Val(TextBox4.Text)
Dim b As double = Val(TextBox5.Text)
TextBox6.Text = (a * b)
ahora el resultado obtenido de cada uno es con una coma. ejempl( 2,12), pero al momento de sumar los dos resultados
Dim a As double = Val(TextBox6.Text)
Dim b As double = Val(TextBox3.Text)
textbox7.text=(a +b)
no suma los decimales y me sale la suma de los entreros dandome un resultado errado

que puedo hacer como soluciono este problema
ayudammmmmmmmmmmmeeeee