ComboBoxen leeren

Private Sub CommandButton1_Click()
Dim obj As Object
Me.Tag = "0"
For Each obj In UserForm1.Controls
Select Case TypeName(obj)
Case "TextBox": obj.Text = ""
Case "ComboBox":  obj.Clear
End Select
Next
Me.Tag = "1"
End Sub

Private Sub UserForm_Initialize()
Dim lol As Long
For lol = 1 To 10
ComboBox1.AddItem lol
ComboBox3.AddItem lol
Next
ComboBox1.ListIndex = 2
ComboBox3.ListIndex = 5
TextBox1 = "Salat"
ComboBox2 = "Eier"
End Sub