Nachkommastellen Combobox

Private Sub cboHubraum_Change()
Dim strHubraumAlt As String
With Sheets("Motoren")
strHubraumAlt = .Range("Q" & .Range("Target").Row).Value
If cboHubraum.Value  strHubraumAlt Then
cboHubraum.BackColor = &HFFFF&
Else: cboHubraum.BackColor = &H80000005
End If
End With
End Sub

Dummerweise unterscheidet Excel aber nun zwischen "1" und "1,0". Wie kann ich erreichen, dass "1" immer als "1,0" dargestellt und auch als Zahl erkannt wird (selbst wenn nur "1" eingegeben wird)?
Gruß Stefan