Visual Basic - Ayuda con textbox (Suma con decimales)

Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    Dim valu As Double = 0.0

    Decimal.TryParse(TextBox1.Text, valu)

    Me.TextBox1.Text = valu.ToString("N2")

Public Class Form1

    'SUMA DOS NUMEROS DECIMALES DE DOS TEXTBOX Y LO MUESTRA EN TIEMPO REAL EN UN TERCER TEXTBOX

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        Calcular()

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        Calcular()

    End Sub

    Private Sub Calcular()

        Dim val1 As Double = 0

        Decimal.TryParse(TextBox1.Text, val1)

        Dim val2 As Double = 0

        Decimal.TryParse(TextBox2.Text, val2)

        Me.TextBox3.Text = CDbl(val1) - CDbl(val2)

    End Sub

End Class