Procedimiento inverso de calculo de una tabla access

Tengo una tabla que es mi archivo final de un inventario. Todas las operaciones de descuento o suma de valores se hacen en onzas; y el resultado esta en el campo exist_onzas segunda flecha de izquierda a derecha. Como los materiales que están en bodega están como entran primera flecha de izquierda a derecha son las unidades en que ingresan los materiales. Ejemplo quintales, bido 5 galones, libras, etc

Tengo en la tercera flecha de izquierda a derecha las onzas en la que se vuelve cada material al ingresar a la computadora para poder utilizarlo y por lo tanto mi existencia final esta en onzas. Mi problema es regresar esa columna en onzas a la unidad en la que ingresa. Quisiera hacerlo en vba de esta manera

dim i as integer

for i =1 to 120

select case onzas

case "1600"

gosub quintales

case "800"

endselect

sub quintales()

a=exist_onzas/onzas    6673.57/1600 =

B=INT(A) ' ESTO SERIA IGUAL A la cantidad de quintales que hay en bodega

c =frac(a)*onzas

Gosub libras

Endsub

Esto seria a grandes rasgos lo que necesito hacer. Ójala me puedan ayudar