Code vba (calcule)

Bonjour,
bonjours les gars je veux traduirs cette formule d'Excel à une code vb d'access
H2 =SI(D2="CGA";30-G2;SI(D2="EXP";10-G2;SI(ET(D2="autres";D2="");"-";"-")))
voilà l'equivalent des cellule D2 G et H2 d'excel en Access :
D2<=>tabsence et G2<=>tdurée et H2<=>bonus
j'essai avec ce code
Private Sub Form_Load()
If tabsence = "EXP" Then
bonus = 10 - tdurée
ElseIf tabsence = "CGA" Then
bonus = 30 - tdurée
Else
bonus = "-"
End If
End Sub
et le résultat donné est :
/nsom /Texte66 /tabsence /tdurée /bonus
/11 /2009 /CGA /38 /-8
/11 /2010 /autres /5 /-8
/11 /2010 /CGA /24 /-8
/11 /2010 /EXP /9 /-8
/22 /2010 /EXP /29 /-8

et voilà le résultat que je veux :
/nsom /Texte66 /tabsence /tdurée /bonus
/11 /2009 /CGA /38 /-8
/11 /2010 /autres /5 /-
/11 /2010 /CGA /24 /6
/11 /2010 /EXP /9 /1
/22 /2010 /EXP /29 /-19


je suis trés trés besoins de votre aides mes amis j'attend vos réponce et merçi d'avance