Visual Basic - LISTBOX

hola, quisiera saber como sacar la suma de todas las cantidades que contiene un ListBox. por ejemplo si tiene los datos : 15 , 18.5, 13.2, 8 etc , como paso la suma a un cuadro de texto o una etiqueta?

Fijate con ésto:

Dim i As Integer, Suma As Double

Suma = 0

For i = 0 To List1.ListCount - 1
Suma = Suma + CDbl(List1.List(i))
Next i

Text1.Text=Suma