word插入文件夹下所有图片后的顺序排列问题

如题，用VBA插入一个文件夹下所有图片后，发现不是按原来的图片顺序排列，总有一张或几张图片跑到前面去了，请各路高手不吝赐教，谢谢！
代码如下：
'================================================插入文件夹中所有图片
FN = Dir(myPath & "\*.jpg")
Do While FN <> ""
    Selection.InlineShapes.AddPicture FN
    FN = Dir
Loop
图片都是相机按顺序拍的，文件名也是SAM-0123，SAM-0124.。。。。之类自动命名的
我想图片插入后就按拍照顺序自动排列，可惜事与愿违，请问DIR是按照什么顺序来读取文件？？？随机？又不像，大部分顺序是对的

[ 本帖最后由 csb2000cn 于 2011-2-18 17:23 编辑 ]

补充一下思路，以前用手动插入图片时，如果是用shift键全选的话，最后一张图片会跑到最前面，那时就要手动剪切这张到最后去，后来用ctrl+A全选时，图片就会依序排列好。
如果Dir是用shift方式全选，那这样每次只需要剪切第一张到最后就行了，但是有时有6张跑到前面去了，这让我有点无所适从，所以我想问下各位高手，已插入到word的图片有没有哪个属性跟原来的文件名有关联，或者是跟拍照时间有关联也好，最多再加上一段排序代码就不用再打开文档一个个手动剪切了，盼各位大大来点给力的回复，谢谢！

我的想法是：把\*.jpg里的数字提取出来，插入图片时同时在下方插入数字及段落符号。全部完成后依照数字大小进行段落排序，然后再删除数字及段落符号。夜深了，明日有空我来试试。


我的疑问是：图片插入后，还能提取到插入前的文件名吗？如果能，就不必上述那么费事了，谁知道啊？