Listcount in Schleife

Guten Tag

Fast geschafft! Aber immer noch nicht das was ich möchte.
Ich möchte die Position anzeigen lassen. So wie ich das gemacht habe, krieg ich dies fast hin.
Aber ich möchte nur die Position und nicht noch Anzahl Inhalt der Liste.
Ich denke die Lösung ist nicht weit weg, komme aber irgendwie nicht drauf.
Hoffe Ihr versteht was ich meine? Denke da kann mir sicher jemand behilflich sein?

Sub Reihenfolge_speichern()
    
    Dim i As Integer
    
    For i = 0 To UFStartseite.LBSet1.ListCount - 1
        MsgBox UFStartseite.LBSet1.ListCount & i
    Next i

End Sub