Userform Combo-unf Textboxen inhalt löschen

Private Sub CommandButton1_Click()
UserForm6.Show
Call UF6lösch
End Sub

.......
Macro sieht so aus....
Sub UF6lösch()
Dim ObCb As Control
Dim tb As Object
For Each ObCb In UserForm6.Controls
If TypeName(ObCb) = "ComboBox" Then ObCb.Value = ""
Next ObCb
For Each tb In UserForm6.Controls
If TypeName(tb) = "TextBox" Then
tb.Text = ""
End If
Next
End Sub

...nun löscht sich beim öffen immer nur eine Textbox....beim nächsten öffen wieder eine u.s.w.
...hätte aber gern das sich die Text-und Comboboxen beim öffnen der Userform erstmal leeren.
Für Hilfe bedank ich mich schon mal vorab!
Gruß Uwe