Valor decimal en procedimiento

Buenas tengo un procedimiento que comprueba el valor de un campo para asígnale el valor a otro. Asi:

Private Sub Cuadro_combinado23_LostFocus()

If Val(Importe) = 0 Then

Cobro = "-----------"

End If

End Sub

Ahora bien el problema es que necesito asignarle a este procedimiento decimales, si el valor de importe es igual a 0,00 entonces cobro es nada, pero he intentado con coma y con punto y no funciona me da error.

GRACIAS