Bueno, para empezar esta línea está mal:
Código:
For i = 0 To List2.ListCount 'ListBox.ListCount
debe ser
Código:
For i = 0 To List2.ListCount - 1
En cuanto a lo de eliminar simplemente hazlo así:
Código:
If List2.ListIndex = -1 Then Exit Sub
List2.RemoveItem List2.ListIndex
Call GuardarArchivo