Menghitung Jumlah Total pada listview

Private Sub ToBay()
        Dim total As Integer
        For i As Integer = 0 To LvKasir.Items.Count - 1
            total = total + LvKasir.Items(i).SubItems(5).Text
        Next
        'Tampilkan hasil dari Total Bayar
        LblToBay.Text = Format(total, " Rp #,##0.00")

        'i adalah posisi baris pada listview
        'Listview1.Items.Count untuk menghitung jumlah baris data pada listview
        'Subitems (3) merujuk pada kolom ke-4 dari listview (index kolom = posisi kolom - 1)
    End Sub