Visual Basic - ayuda

hola amigos alguien me podria decir porque no anda esto que hice y si me pudiera ayudar seria buenisimo, lo que tengo que hacer es sumar los valores de un listview que estan en la columna 5 o sea el subitem 5 pero no suma un carajo esto que hice, a lo mejor me falta algo

Public Sub Total ()
Dim x As Integer
Dim i As Integer
Dim Total As Double
Total = 0
For x = 1 To ListView1.ListItems.Count
Total = Total + Val(ListView1.ListItems(x).ListSubItems(5))
Next
Lbltotal.Caption = Total
End Sub

nos vemos

Yo no uso el ListView pero deberías revisar tu código usando el "Depurador" (F8) y detenerlo justo cuando toma el primer valor de tu lista... ahí puedes averiguar qué valores te está sumando. Suerte.