Hola, es que como no especificaste muy bien de qué se trataba,
Avellaneda 
dedujo que se trataba de obtener los datos de una base de datos (para eso sirve el Open del Recordset).
En este caso, te puede servir la segunda parte de su código. Algo así:
Código vb:
Ver originalDim suma As Double
For i = 0 To List2.ListCount - 1
suma = suma + Val(List2.List(List2.ListIndex))
Next i
Label1.Caption = Format(suma, "#,##0.00") 'Para dar formato a la suma
Label2.Caption = Format(suma * 0.13, "#,##0.00") 'Para obtener el 13% y formatearlo