Incrementing

[jbelkin@gmail.com]

I need help with incrementing shipment number every time I run script.
Shipment number must be 32 characters exact. Can someone suggest what would work in my case? Thanks.
____________________________________________________________

Code:

Browser("Clinical LIMS v1.4").Page("Shipment List").WebButton("New Shipment").Click
for pr0_u_airbillnumber = JB00000000000000000000000000000010 to JB111111111111111111111111111110 step 1 'old shipment number
Browser("Clinical LIMS v1.4").Page("Add Shipment_2").Frame("maint_iframe").WebEdit("pr0_u_airbillnumber")Set pr0_u_airbillnumber
Browser("Clinical LIMS v1.4").Page("Add Shipment_2").Frame("maint_iframe").WebEdit("pr0_u_airbillnumber").Click
Browser("Clinical LIMS v1.4").Page("Add Shipment_2").WebButton("Save").Click
Browser("Clinical LIMS v1.4").Page("Edit Shipment SH000000000601").Frame("maint_iframe").WebButton("Add").Click
Browser("Clinical LIMS v1.4").Page("Edit Shipment SH000000000601").Frame("maint_iframe").WebEdit("WebEdit").Click
Browser("Clinical LIMS v1.4").Page("Edit Shipment SH000000000601").Frame("maint_iframe").WebEdit("WebEdit").Set DataTable("TRID", dtGlobalSheet)
Browser("Clinical LIMS v1.4").Page("Edit Shipment SH000000000601").WebButton("Save").Click