> Me.Refresh の一文を追加されたらいかがでしょうか?ありがとうございました。早速試してみましたが、Text1(posi).Refreshでうまくいきました。DoEventsを使わない方法として記憶しておきます。