funziona! ci sono riuscito!
praticamente ho inserito il codice nel button invece che nel textchanged della textbox.

codice:
If TextBox3.Text <= -1 Then
TextBox3.Text = CLng(Me.TextBox3.Text) + CLng(Me.ListBox1.Items(ListBox1.Items.Count - 1))
ListBox1.Items.RemoveAt(ListBox1.Items.Count - 1)
End If