Удаление пустых строк ComboBox1

Option Explicit
Dim WithEvents cbx As ComboBox, WithEvents cb As CommandButton, i&, v
 
Private Sub cb_Click()
    With cbx
        On Error Resume Next
        For i = 0 To .ListCount - 1
            If .List(i) = "" Then
                .RemoveItem i
            End If
        Next
    End With
End Sub
 
Private Sub Form_Load()
    Set cbx = Controls.Add("vb.ComboBox", "cbx"): With cbx
        .Move 90, 90
        .Visible = 1
        For i = 1 To 10
            If i Mod 2 Then cbx.AddItem "" Else cbx.AddItem i
        Next
    End With
    Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
        .Move 90, 90 * 5, cbx.Width * 2, 90 * 4
        .Caption = "Удалить пустые строки"
        .Visible = 1
    End With
End Sub

If len(Combo1.List(i)) = 0 Then Combo1.RemoveItem (i)

 For Each s In XL.Worksheets("OSN").Range("A1:A10").Value
    If Len(ComboBox2.List(I)) = 0 Then ComboBox2.RemoveItem (I)
    ComboBox2.AddItem s
Next

  '-------- открываю книгу
Set XL = CreateObject("Excel.Application")
XL.WorkBooks.Open App.Path & "\BD\ПКО_РКО.xlsx"
XL.Visible = False
  
XL.Worksheets("OSN").Rows("2:2").Insert xlDown, xlFormatFromLeftOrAbove
 XL.WorkBooks("ПКО_РКО").Worksheets("OSN").Range("A2").Value = InputBox("ЛА-ЛА", "ЛА-ЛА") 
  
  For Each s In XL.Worksheets("OSN").Range("A1:A10").Value
    ComboBox2.AddItem s
Next
  XL.ActiveWorkbook.Save
'ну и так далее закрываю книгу.........
..........

if len(s)<>0 then ComboBox2.AddItem s

If len(Combo1.List(i)) = 0 Then Combo1.RemoveItem (i)

  ComboBox2.clear
[QUOTE]  For Each s In XL.Worksheets("OSN").Range("A1:A10").Value
    ComboBox2.AddItem s[/QUOTE]