Hello again,
I have not mutch experience in programming but i think have a solution for the drill problem.After reading the vbscript doc about the format function i change all the the lines with the function formatnumber into e.g. Z=format(Abs(getoemdro(1004))*-1,"###,##").
Now it works correct.Maybe is this the reason:Country is set to United States in the International
section of the Control Panel.(page 75).