Sumar datos de listbox

Saludos Dam, estoy creando otro juego en el suuuper macro que me has ayudado a hacer este es el código

For i = 0 To ListBox1.ListCount - 1[size= 0.8em; line-height: 1.1em]If Mid(ListBox1.List(i, 5), 1, 6) = Mid(ComboBox2, 1, 6) And _[/size] ListBox1.List(i, 0) = TextBox2 And _ ListBox1.List(i, 1) = TextBox3 Or _ Mid(ListBox1.List(i, 5), 1, 6) = Mid(ComboBox2, 1, 6) And _ ListBox1.List(i, 0) = TextBox3 And _ ListBox1.List(i, 1) = TextBox2 Then If Mid(ListBox1.List(i, 5), 1, 6) = "4-Super Pale" Then totfactlist_spal = totfactlist_spal + Val(ListBox1.List(i, 3)) End If End IfNext

lo que pasa es que hay algo mal en este código porque no me esta sumando los valores, lo que creo es que algo com la función Mid con el numero del final pero no logro que me de bien. Mid(ListBox1.List(i, 5), 1, 6). Podrías ayudar?