How to change numbers to zero

How to change numbers to zero – refer below code:
Dim i
Dim j
Dim output
objStr= “1234567890”
j = 0
For i = 1 to 9
output =output&replace(objStr,i,j)
Next