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