Fehler bei Combobox füllen

Hey Profis
ich habe eine UF mit 2 Comboboxen, bei der ich 2 Zellen mit
initialisieren einlese.
mit dem Commandbutton will ich wieder zurückschreiben.
Warum klappt das nur wenn ich bei Combos mit Werten fülle,
und bei Nichteingaben einer Box knallt er raus.
bei den Boxen teile ich durch hundert.
hier der Code

Private Sub CommandButton1_Click()
Range("E73") = CDbl(ComboBox1.Value) / 100
Range("E75") = CDbl(ComboBox2.Value) / 100
ComboBox1.Value = Format((ComboBox1.Value), "#,##0.00") & " %"
ComboBox2.Value = Format((ComboBox2.Value), "#,##0.00") & " %"
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Value = Format((ComboBox1.Value), "#,##0.00%")
ComboBox2.Value = Format((ComboBox2.Value), "#,##0.00%")
ComboBox1.Value = Range("E73")
ComboBox2.Value = Range("E75")
End Sub