we have input file like this.first we have to check the first 4 digit length before comma if 4 digit length found then we have to remove the first digit and added zero in the second digit postion.other case suppose three digits only before comma then we have add first digit as zero.we have to verify lengh of digits after comma ,if lengh less than 15 then we have to add leading zeros after comma

I/P

3290,9174990831

3290,1775998230

4560,7000135

3290,6500007975

101,8868000005

O/P

090,000009174990831

001,000008868000005

my_input.1 = "3290,9174990831"

my_input.2 = "101,8868000005"

Do ix = 1 To 2

Parse var my_input.ix first_part ',' second_part

first_part = Right(Right(first_part,2),3,0)

second_part = Right(second_part,15,0)

my_output.ix = first_part||second_part

End

Say my_output.1

Say my_output.2

Exit