Visual Basic - suma en listview

hola amigos alguien me podria ayudar con esta rutina, es para sumar los valores que estan en una columna de un listview, y ya me tiene podrida.

Public Sub TOTAL()
Dim X As Integer
Dim Y As Double
For X = 1 To ListView1.ListItems.Count
Y = Y + CDbl(ListView1.ListItems.Item(X).ListSubItems(6).Text)
MsgBox CDbl(ListView1.ListItems.Item(X).ListSubItems(6).Text)
Val (ListView1.ListItems.Item(X).ListSubItems(6).Text)
Next
Lbltotal.Caption = "$ " & Y
End Sub

¿Y qué error dá o porqué no funciona?
¿No sería mejor tomar el valor al cargar el ListView?
Saludos