Problème de "dépassement de capacité" en VBScript

Bonjour je suis en train de créer un programme, en VBScript, et j'ai un problème, il y a "un dépassement de capacité" :

code :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

vieAR = 100
vieAA = 100
dgtAA = 50
dgtAR = 50

dgtAA = round(dgtAA - (vieAA / dgtAR))
dgtAR = round(dgtAR - (vieAR / dgtAA))
vieAA = round(vieAA - dgtAR)
vieAR = round(vieAR - dgtAA )

dgtBA = round(dgtBA - (vieBA / dgtBR)) <<-- C'est ici le problème !
dgtBR = round(dgtBR - (vieBR / dgtBA))
vieBA = round(vieBA - dgtBR)
vieBR = round(vieBR - dgtBA)

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Quand je lance le programme ça me met qu'il y a un dépassement de capacité à cette ligne.
Alors si quelqu'un a une solution, merci de m'en informer , Merci d'avance !!