Dim i As Integer
        Dim a As String
        For i = 0 To ListView1.Items.Count - 1
            a += ListView1.Items(i).SubItems(1).Text
            If Not (i = ListView1.Items.Count - 1) Then a += "."
        Next
        msgbox a