Dim sArray1() As String
Dim sArray2() As String
Dim nCount As Integer
Dim i As Integer
 
With ListView1
  nCount = .ListItems.Count
 
  ReDim sArray1(nCount)
  ReDim sArray2(nCount)
 
  For i = 1 To nCount
    sArray1(i) = .ListItems(i).Text
    sArray2(i) = .ListItems(i).SubItems(1)
  Next i
End With