Visual Basic, читаем далее

Подскажите где ошибся, код должен выводить списком
id12345Автомобиль
id12345Телефон и т. д.
Но у меня вот такая бяка получилась как на картинке, ХЭЛП МИ!! !

Private Sub Form_Load()
'загружаем id
Dim id As Integer
Dim idName As String
id = FreeFile
idName = "id.txt"
Open idName For Input As #id
txtPart1.Text = Input(LOF(id), #id)
Close #id
'''''''''''''''''''''''''''''''''''''''''
'загружаем данные
Dim d As Integer
Dim dName As String
d = FreeFile
dName = "d.txt"
Open passName For Input As #d
txtPart2.Text = Input(LOF(d), #d)
Close #d
End Sub
''''''''''''''''''''''''''''''''''''''''
Private Sub cmdStart_Click()
Dim cLines As Long
Dim i As Long
Dim strBeginning As String
If IsNumeric(txtLines) Then
cLines = txtLines
End If
strBeginning = txtPart1 & " " & txtPart2 & " "
lstNumbers.Clear
For i = 1 To cLines
lstNumbers.AddItem strBeginning
strBeginning = Replace(strBeginning, " ", "")
Next i
End Sub