WebListBox

Targets Web
1

Dim i, c As Integer
Dim sValor As Currency

If Listbox1.RowCount=-1 or Listbox1.RowCount=0 Then Exit sub

c = Listbox1.RowCount -1
sTotal=0

For i = 0 To c Step 1
If (Listbox1.Selected(i) =True) Then
sValor=Val(ListBox1.Cell(ListBox1.ListIndex,3)) <<<<<<<< is no working the Value no change
sTotal=sTotal+sValor
TxtTotal.Text=Format(sTotal,"###,##0.00")
End If
Next

2 
If ListBox1.RowCount <= 0 Then Return

Dim sValor As Currency
Dim sTotal As Currency

Dim rows As Integer = ListBox1.RowCount-1
For i As Integer = 0 To rows
  If ListBox1.Selected(i) Then
    sValor = Val(ListBox1.Cell(i, 3) // Use the loop counter; ListIndex is the last selected row
    sTotal = sTotal + sValor
  End If
End If
TxtTotal.Text = Format(sTotal, "###,##0.00")
3

thanks paul