For Loop=1 To 4 Locate 0,Loop:?Msy[Loop+4] Next 変数Loopは適当な変数名でおｋです