VBA que no devuelve decimales

Private Sub Campo1_AfterUpdate()
If IsNumeric(Campo1) Then
Campo2 = [Campo1].[Column](2)
End If
End Sub

Tengo una tabla de productos, la cual tiene 2 campos --> nombre y valor

Tengo una segunda tabla donde tengo : nombre

Al colocar el nombre quiero y indicar una cantidad, la multiplique por el valor de ese nombre y me de un resultado.

Ejemplo:

1-Tabla

Producto=Manzanas                      min=10,5

2- tabla

Campo1:Manzana            Kg obtenidor=5               Campo2=10,5      Total=5-10,5=52,5

El producto es una tabla combinada relacionada con la tabla1 ([producto].[min]).

Al elegir el producto manzana, inmediatamente se me rellena el min... Posteriormente yo puedo indicar los Kg y consigo el total automáticamente.

Ahora bien... En la tabla lo he conseguido sin problema.

El problema lo tengo al pasarlo al formulario para poder introducir des de el y tener un HISTORIAL.

Creo el formulario a partir de la tabla2.

FORMULARIO

Inserto el VBA:

Private Sub Campo1_AfterUpdate()
If IsNumeric(Campo1) Then
Campo2 = [Campo1].[Column](2)
End If
End Sub

Si el número es entero, funciona correctamente, pero como el número de "min" sea con decimales, ja no consigo que funcione, me devuelve solo números enteros.

¿Cómo lo puedo arreglar?