[Somar textbox formato moeda]

estou com esse codigo e não consigo fazer  com q apareca os resultados na textbox5 e textbox6

alguém pode me ajudar

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim resultadoa As Decimal
        Dim x As Integer

        For x = 0 To ListBox1.Items.Count - 1
            resultadoa = resultadoa + CDbl(ListBox1.Items(x))
        Next
        TextBox2.Text = Format(resultadoa, "C")

        Dim resultadob As Decimal
        Dim y As Integer
        For y = 0 To ListBox2.Items.Count - 1
            resultadob = resultadob + CDbl(ListBox2.Items(y))
        Next
        TextBox3.Text = Format(resultadob, "C")

        Dim soma As Decimal
        soma = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)
        TextBox5.Text = Format(soma, "C")
        Dim subtracao As Decimal
        subtracao = Val(TextBox5.Text) - Val(TextBox1.Text)
        TextBox6.Text = Format(subtracao, "C")


    End Sub