Private Sub UserForm_Initialize()
  With ComboBox1
    .AddItem "Eintrag 1"
    .AddItem ""
    .AddItem "Eintrag 2"
    .AddItem "Eintrag 3"
    .AddItem ""
    .AddItem "Eintrag 4"
    .AddItem ""
  End With
End Sub

Private Sub CommandButton1_Click()
  Dim i As Integer
 
  With ComboBox1
    For i = .ListCount - 1 To 0 Step -1
      If Len(.List(i)) = 0 Then
        .RemoveItem i
      End If
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de