Private Sub TextBox5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
l = 1
Form.TextBox7.Text = ""
Form.TextBox6.Text = ""
lst.ListBox1.RowSource = ""
lst.ListBox1.Tag = ""
lst.ListBox1.Tag = "d"
Dim ArrRR(1 To 500)
For ii = 1 To 500
If Form.TextBox3.Text = Worksheets("âàðèàíòû" ;) .Range("B" & ii).Value Then
ArrRR(l) = Worksheets("âàðèàíòû" ;) .Range("D" & ii).Value
l = l + 1
End If
Next
ReDim Arr2RR(1 To l)
ReDim Arr3RR(1 To l)
For iii = 1 To l
Arr2RR(iii) = ArrRR(iii)
Next


m = 1
For g = 1 To l
If Arr2RR(g) <> ArrRR(g) Then
Arr2RR(g) = Arr3RR(m)
m = m + 1
End If
Next


For i = 1 To l
lst.ListBox1.AddItem ""
lst.ListBox1.List(i - 1) = Arr3RR(i)
Next
lst.Show
End Sub

Private Sub TextBox5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
l = 1
Form.TextBox7.Text = ""
Form.TextBox6.Text = ""
lst.ListBox1.Tag = "d"
Dim ArrRR(1 To 500)
For ii = 1 To 500
If Form.TextBox3.Text = Worksheets("âàðèàíòû").Range("B" & ii).Value Then
ArrRR(l) = Worksheets("âàðèàíòû").Range("D" & ii).Value
l = l + 1
End If
Next
For i = 1 To l
lst.ListBox1.AddItem "" 'ВОТ ЗДЕСЬ ОШИБКУ ВЫДАЕТ
lst.ListBox1.List(i - 1) = ArrRR(i)
Next
lst.Show
End Sub