avance i procent

hejsa jeg har tre felter 1.prisprenhed 2. kostpris 3.avance 
jeg vil så gerne lave det så hvis man indtaster noget i kostpris regner den avancen i % ud og omvendt hvis man indtaste procent regner den prisprenhed ud.

jeg har den kode i afterupdate på prisprenhed men den vil ikke skrive minus værdier i feltet avance hvordan får jeg den til det
------------------------

If Me.Kostpris <> Me.PrisPrEnhed Then


Me.avancefelt.Value = (((Me.PrisPrEnhed / Me.Kostpris) - 1))
Else
Me.avancefelt = 0
End If
End Sub