Visual Basic - Alguna idea?!

alguien sabe como lograr esto?........
tengo un textbox multilinea con el siguiente texto:
pepe
20
juan
21
luis
19

y debo pasarlo a un listview con 2 columnas de la siguiente manera:
pepe 20
juan 21
luis 19

Private Sub Command1_Click()
On Error Resume Next
Dim TempItem As ListItem

For i = 1 To Len(Text1.Text)
letra = Mid(Text1.Text, i, 1)

If (Asc(letra) = 13) Then
Set TempItem = ListView1.ListItems.Add()
TempItem.Text = palabra
palabra = ""

Else
palabra = palabra & letra
End If

Next

End Sub