Para agregar elementos a un ListView debes ir añadiendo items de esta forma:
Dim ListItem As MSComctlLib.ListItem With miListView .ListItems.Clear Set ListItem = .ListItems.Add(, , "Valor1") Set ListItem = .ListItems.Add(, , "Valor2") ' .... End With
Saludos, Javier J