Showing Space when Sorting and unique data of Combobox

hi, everyone
i getting space when combobox populating with sorting and unique data

please check why its showing a space in combobox list

here is my code

Private Sub UserForm_Initialize()
    Dim i2 As Long          ''LOAD UNIQUE AND SORTED LIST TO COMBOBOX
    With Sheets("ENTRY")
        sn = .Range("C10:C" & .Cells(.Rows.CountLarge, 2).End(xlUp).Row)
    End With
    With CreateObject("System.Collections.ArrayList")
        For i2 = 2 To UBound(sn)
            If Not .Contains(sn(i2, 1)) Then .Add sn(i2, 1)
        Next
        .SORT
        ComboBox1.List = Application.Transpose(.ToArray)
    End With
end sub