Visual Basic - YA PUDE SUMARLOS PERO FALTAN LOS DECIMALES

hola, he conseguido sumar los campos de un listbox, pero solo consigo total entero y nesesito que sume con todo y decimales

Private Sub Command2_Click()
Dim IndiceLis
Dim VTotal
VTotal = 0
If List3.ListCount < 1 Then Exit Sub
For IndiceLis = 0 To List3.ListCount - 1
VTotal = VTotal + Val(List3.List(IndiceLis))
Next IndiceLis
MsgBox VTotal
End Sub

me pueden ayudar ?

Me parece que en la declaracion de variables (dim) no estas poniendo el tipo de variable, para que sumes decimales debe ser:

Dim IndiceLis integer
Dim VTotal as single

saludos.
<fin de texto>

YA INTENDE CON EL CDBL Y NO FUNCIONA, ME SIGUE MANDANDO EL ERROR '13' (NO COINCIDEN LOS TIPOS)

> Dim IndiceLis as integer
> Dim VTotal as Double
>
> VTotal=0
> if List1.ListCount<1 then exit sub
> for IndiceLis=0 to List1.ListCount-1
> VTotal= VTotal + CDBL(List1.List(IndiceLis))
> next IndiceLis

Private Sub Command2_Click()
Dim Intermedio as double
Dim IndiceLis
Dim VTotal
VTotal = 0
If List3.ListCount < 1 Then Exit Sub
For IndiceLis = 0 To List3.ListCount - 1
Intermedio=List3.List(IndiceLis)
VTotal = VTotal + Intermedio
Next IndiceLis
MsgBox VTotal
End Sub

Consejo: En lo posible tratá de dejar que el mismo vb se encargue de hacer las transformaciones de tipo.
Suerte!

Muchas gracias Luis, tu codigo me acaba de salvar la vida, en la escuela nos pidieron que le vendieramos un software \"hecho por nosotros\" a algun establecimiento, y como me enferme no pude tomar el curso de programación y para no reprobar el semestre me dijieron que querian ver funcionando mi sitema en un establecimiento asi que gracias a ti y a todas las personas que me ayudaron y resolvieron misdudas les devo mi semestre ¡Muchas Gracias! besos y cuidate, gracias de nuevo

:-* <====(es un beso en irc)