Need help again thx in advance

For i = LBound(vImages) To UBound(vImages) Step 4
Set oDoc = Documents.Add(strFile)
ImageToBM "bm1", CStr(vImages(i))
ImageToBM "bm2", CStr(vImages(i + 1))
ImageToBM "bm3", CStr(vImages(i + 2))
ImageToBM "bm4", CStr(vImages(i + 3))
Next i

So now my 4 images I need to insert are called 1393_1_FOTO,1393_1_PHOTO,
1393_1_ST, 1393_1_DS for point number 1.
For point number 2 are 1393_2_FOTO,1393_2_PHOTO,
1393_2_ST, 1393_2_DS.
So everything stays the same except middle number which is always rising +1 for every point. So i would like a macro that asks me point number and when i write point number it links to image middle number like above and inserts them at bookmarked places bm1,bm2,bm3 and bm4.