I have a strange issue with European Regional Language settings.

In Userform_Initialize() I define the list for the ComboBox with this
code:

For j = 12 To 23
ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
11).Value), "#0.000")
Next j

I get a list that is properly formatted with 3 decimal places in both
English and European language settings.

When I change the value in the ComboBox, it changes the value perfectly
in English and the spreadsheet works great.

But when I change the same value in the ComboBox while in European
Regional Languages, it doesn't recognize the comma decimal seperator if
the value is 1 or greater.

Example:

I pick 0,500 from the list. The spreadsheet will change to 0,500.
I pick 1,500 from the list. The spreadsheet will change to 1 500.
I pick 4,500 from the list. The spreadsheet will change to 4 500.

Does anybody have any solutions or ideas as to why this might be
happening?