Private Sub UserForm_Initialize()

'ниже закоментирован код сортировки NERV'a

'Dim Arr(), i As Long, s As String, iLastRow As Long, x
'iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Arr = Worksheets("Данные").Range("A2:A89").Value
'
    On Error Resume Next
    With New Collection
        For Each x In gorokh()
            s = Trim(x)
            If Len(s) > 0 Then
                If IsEmpty(.Item(s)) Then
                    For i = 1 To .Count
                        If s < .Item(i) Then Exit For
                    Next
                    If i > .Count Then .Add s, s Else .Add s, s, Before:=i
                End If
            End If
        Next
    ReDim gorokh(1 To .Count)
        For i = 1 To .Count
            gorokh(i) = .Item(i)
        Next
    End With

    ListBoxItems.List = gorokh
    Me.TextBoxItems.SetFocus
End Sub