vba 如何实现列表框与Sheet1内容同步？

Private Sub CommandButton1_Click()
    If Trim(TextBox1.Text) = "" Then Exit Sub
    ListBox1.AddItem (TextBox1.Text)
    Sheet1.Cells(Range("A65536").End(xlUp).Row + 1, 1) = TextBox1.Text
    TextBox1.Text = ""
End Sub

Private Sub UserForm_Activate()
    Dim var() As Variant
    Dim iRow As Long
    Dim iLen As Long
    var = Sheet1.Range("A:A").Value
    iLen = UBound(var)
    For iRow = 1 To iLen
        If var(iRow, 1) = "" Then Exit For
        ListBox1.AddItem (var(iRow, 1))
    Next iRow
End Sub