なんか、学校の課題のような気が・・・

問題点だけ挙げときます。
１）ヴァンさんのご指摘の点
２）変数ｘを宣言しているが未使用
３）ListBox1が未選択のときの処理がない
４）TextBox3.Text &= total & vbNewLineは選択されているものの合計を取ろうとしているのだと思うのですが、これだと文字列の連結になってしまう

基礎が出来ていないので、ここの最初から読んで基礎をつけたほうがいいと思います。