> Do> Form1.List1.AddItem myFileName> myFileName = Dir()> Loop Until myFileName = vbNullStringDo 〜 Loop Until ではなく、Do Until 〜 Loop にする必要があるかも。