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