はじめまして、ＶＢ1ヶ月半の初心者です。
テキスト形式のファイルの分割という単純な操作の気がしますが、
1ヶ月近くはまり、病んでいます。

環境；ＶＢ2005
扱うデータ；text形式のファイル

1(改行)
2(改行)
3(改行)
・・・
9999(改行)
10000(改行)
END

一行づつ改行されたtextdataを

1 2 3 ・・・ 200(改行)
201 202 203・・・ 400(改行)
9801 9802 9803・・・ 10000(改行)
END

というようにスペースで区切り、一定の間隔で改行を入れたいのです。

下記のコードで、InStrとMid関数で改行位置を検索、スペースで連結、
することはできたのですが、指定位置(200個目のデータ等)を改行する
命令はどのようにすればよいのでしょうか。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
        Dim Ｍ As String, pt As Integer
        moto = Textbox1.Text & " "
        pt = 1    
        Do        
            pt = InStr(pt, Ｍ, vbCrLf)    
            If pt = 0 Then    
                Exit Do          
            End If
            Ｍ = Mid(Ｍ, 1, pt - 1) & " " & Mid(Ｍ, pt + 2)    
        Loop
        textbox2.text = Ｍ
    End Sub

textdataを配列に格納したりと色々試してはいるのですが、
結局目的を達成できずにいます。
また、この方法だと実行速度がかなり掛かってしまいそうで、
スムーズにできる方法があれば、
そちらもご教授のほどよろしく御願いいたします。

ヒントだけでいいですか？
10000個固定なのか？、とか、最後のENDはなんとかして、とか、ありますけれど

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim L() As String, M(199) As String, N(49) As String
        L = Split(TextBox1.Text, vbCrLf)
        For i As Integer = 0 To 49
            Array.Copy(L, i * 200, M, 0, 200)
            N(i) = Join(M, " ")
        Next
        TextBox2.Text = Join(N, vbCrLf)
    End Sub

ダンボさんご回答有がとうございます！！


Array.Copyのところは数値を変えると、ソース配列やターゲット配列の長さが足りない
などエラーが出ましたが、ＥＮＤを削除して無事、自分の思っていたところで改行でき、
テキスト表示、保存までできました！

Array.CopyやJoinなどのメソッドをうまく使いこなせるようもっと勉強します。

本当に有難うございました。

マルチポスト？リンク
http://bbs.wankuma.com/index.cgi?mode=al2&namber=36014