В TextBox выводится только последнее слово из ListBox

'Что странно когда пишу msgbox list1.list(I) все работает а когда _
text1.text=list1.list(i) то в тексбокс выводится только последнее слово _
из листбокса и только один раз потом не работает почему так вот код
'
' Dim i asinteger
'
' For i = 0 To List.ListCount - 1
' List1.ListIndex = i
' Text1.Text = List1.List(i)
' Next i
Option Explicit
'
'   © FelixMacintosh //// СИНХРОНИЗАЦИЯ List1 и Text1
'   У Text1 свойство [MultiLine]  должно быть True !!!
'
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim j$(), f&
    Static u&
    j = Split(Text1.Text, vbCrLf)
    If u <> UBound(j) Then
        u = UBound(j): List1.Clear
        For f = 0 To u: List1.AddItem (j(f)): Next
    End If
    j = Split(Text1.Text, vbCrLf)
End Sub
 
Private Sub Form_Activate()
    'Передаём список тексту
    Dim f&, lc&
    Text1 = ""
    lc = List1.ListCount - 1
    For f = 0 To lc
        Text1.Text = Text1.Text & List1.List(f)
        If f < lc Then Text1.Text = Text1.Text & vbCrLf
    Next
End Sub
 
Private Sub Form_Load()
    'Создаём список
    Dim j$(), f&
    Const c = "пункт1 пункт2 пункт3"
    j = Split(c)
    With List1: For f = 0 To UBound(j): .AddItem j(f): Next: End With
    
End Sub