Список VBA

[DimR]

Sub ListBoxes()

Dim str(5) As String, strInfo(5) As String, surn(5) As Boolean
Dim i As Byte, idCount As Byte
str(0) = "1"
str(1) = "2"
str(2) = "3"
str(3) = "4"
str(4) = "5"
str(5) = "6"

idCount = 0
UserForm2.ListBox1.Clear
UserForm1.ListBox1.Clear
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
With UserForm2.ListBox1
For i = 0 To 5
.AddItem str(i)
surn(i) = False
Next i
.ListIndex = 0
.MultiSelect = fmMultiSelectExtanded
End With

If UserForm2.ListBox1.ListCount > 0 Then
For i = 0 To UserForm2.ListBox1.ListCount - 1
surn(i) = UserForm2.ListBox1.Selected(i)
If surn(i) Then
strInfo(idCount) = str(i)
UserForm1.ListBox1.AddItem strInfo(idCount)
idCount = idCount + 1
End If
Next i
UserForm1.ListBox1.Enabled = False
UserForm2.ListBox1.Enabled = True
UserForm1.ListBox1.MultiSelect = fmMultiSelectExtanded
End If
End Sub

Не могу понять, почему на первой форме отображается первый элемент списка вне зависимости от того,что я выбираю.