Decimaltal i ComboBox

Jeg sidder med en userform, hvori jeg har lavet en ComboBox.

Jeg skal kunne udregne noget med svaret i ComboBoxen, som indeholder decimaltal.

Men...

Når jeg skriver fx 0.56 i ComboBoxen ‘retter’ den det i udregningen til 56. Hvad gør jeg forkert??

Jeg har (blandt en masse anden kode, som jeg ikke kan se skulle påvirke noget) skrevet:

Dim vpromille as single
vpromille = combobox1

If ComboBox2 = 1 and vpromille > 2 then
Call calculate1
Exit sub
End if