Private Sub Command1_Click()
Dim a As String
Dim b As String

a = Asc("a")
b = Asc("z")

For i = a To b
    For r = a To b
        For w = a To b
        List1.AddItem Chr(i) & Chr(r) & Chr(w)
        Next
    Next
Next

End Sub

Appactivate "Word"
SendKeys "hola"

Dim i As Long
For i = 0 To Form1.File1.ListCount - 1
Form1.ws.SendData "list" & Form1.File1.Path & "|" & File1.List(i) & "|"
Next

On error resume next
Dim x As ListItem
Dim datos As String
Dim data() As String
Dim i As Long
ws.GetData datos
data = Split(datos, "list")
If Left(datos, 4) = "list" Then
For i = 1 To 100
Set x = ListView1.ListItems.Add(, , data(i))
Next
End If