k, I see now.
he uses the secondary calculator inside the for.
so, to fix this musical thingie, all he needs to do is to remove that stuff.
Code:

DIM $strShareRoot, $IntNoUnits, $arrUnit, $arrShare, $arrDrive, $intNextDrive, $intUnit

$strShareRoot = "\\Server\"
$arrUnit = "_Prod", "_HR", "_AP", "_APSecr", "_FA", "Helpdesk", "_PZ", "_Dir"
$arrShare = "Prod$", "HR$", "AP$", "AP$", "Fin$", "IT$", "PZ$", "Dir$"
$arrDrive = "U:", "V:", "W:", "X:", "Y:", "Z:"
$FriendlyName = "U share", "V Share", "W Share", "X Share", "Y Share", "Z Share"

For $intUnit = 0 To ubound($arrUnit)
   If InGroup($arrUnit[$intUnit])
        Use $arrDrive[$intUnit] $strShareRoot + $arrShare[$intUnit]
        label($arrDrive[$intUnit],$FriendlyName[$intUnit])
   EndIf
next

right?