Error de dedo mío
. Prueba así:
Código vb:
Ver originalDim suma As Double
Dim i As Integer
For i = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(i))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label2.Caption = Format(suma * 0.13, "#,##0.00")