Change extension in linked images

[gmayor]

Sorry - my fault. I misread the requirement
Change the line

 oFld.code.Text = Replace(oFld.code.Text, ".jpg", ".png")

to

 oFld.code.Text = Replace(oFld.code.Text, ".png", ".jpg")