Para resumir te hago una sub
Código :
Ver originalSub CambiaFormatoColumna(ByRef ControlListView As ListView, ByVal NumColumna As Integer, ByVal NuevoFormato As Variant)
Dim F As Long
For F = 1 To ControlListView.ListItems.Count ' - 1 'Parece ser que si pongo -1 se queda el ultimo sin cambiar
ControlListView.ListItems(F).ListSubItems(NumColumna).Text = Format(ControlListView.ListItems(F).ListSubItems(NumColumna).Text, NuevoFormato)
Next F
End Sub
Para usarla añade en tu código detrás del Wend:
CambiaFormatoColumna ListView, 2, "00,000"
CambiaFormatoColumna ListView, 3, "00,000"
cambiando el "00,000" por tu formato
Espero que te sirva.