とりあえず意図があってるかはわからないですが間違えっぽいのが２箇所あります。 ひとつは５行目で、M=0だと始めの数がカウントされないので、M=1の必要があります。 もうひとつは22行目でM-1だと削るのが足りないのでMの必要があります。つまりS$=MID$(S$,M,LEN(S$)-1)ですね。