You could do something like this to see how many characters the number is and add 0's if needed.
Probably not the most elegant way but it does work.

 Code:
Break on

$number = "0002"

$lenght = Len(Val($number))
?$lenght
$add = 4 - $lenght
?$add
Select
	Case $add = 1
		$number = "0" + Val($number)
		?$number
	Case $add = 2
		$number = "00" + Val($number)
		?$number
	Case $add = 3
		$number = "000" + Val($number)
		?$number
EndSelect
Sleep 5
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.