'Variablen deklarieren:
Dim Item As ListViewItem
Dim ArtNr As string
Dim Name As String
Dim Anzahl As Integer
Dim Preis As String
dim Total as Integer
 
For Each Item In ListView1.Items      'For...Each-Schleife durchläuft jedes 
' ListViewItem
          ArtNr=Item.Subitems(0).Text
          Name=Item.Subitems(1).Text
          ... 'usw.
Next

For X=0 To ListView1.Items.Count-1
...
Next