Dim sArray1() As String
Dim sArray2() As String
Dim i1,i2
Dim oItem As MsComctlLib.ListItem
 
sArray1=Split(String, vbCrLf)
 
For i1=0 To Ubound(sArray1)
sArray2=Split(sArray1, "$")
Set oItem = ListView1.ListItems.Add(,"k"& i1, sArray2(0))
oItem.SubItems(1)=sArray2(1)
Next i1