Intercettare valori nulli in TextBox prima della conversione

[LMondi]

Non avevo notato quest'altra condizione - ComboEuro.Text = "0" .
In questo modo avresti in ogni caso due decimali dopo la virgola:

If Len(ComboEuro.Text) = 0 Then
    ComboEuro.Text = "0,00"
    Else: ComboEuro.Text = Format(ComboEuro.Text, "#,##0.00")
End If