Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
　　　  Dim pos As Integer = 0   '文字列上のインデックスを示す変数
        
　　　　Dim last As Boolean = False '文字列の終端に到達したかどうか記録
        
　　　　Dim nw As String = ""   '新しい文字列
        
        Dim getlenth As Integer '取りだす文字列（３文字）


      


        Do
        getlenth = Math.Min(3, TextBox1.Text.Length - pos) '入力された文字列の長さと変数　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　posの値から、取り出して良い　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　文字列を計算


         nw &= TextBox1.Text.Substring(pos, getlenth) '入力された文字から上記で計算した文　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　字数だけ文字列を取り出し、新しい文　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　字列に追加
           
　　　　　　 pos += getlenth 　'変数posを次の位置に進める
            
　　　　　　last = pos = TextBox1.Text.Length 　'末尾に達したかどうか

            If Not last Then '末尾でなければ区切り文字,を追加
              
　　　　　　　  nw &= ","


           End If

        Loop Until last

        TextBox1.Text = nw 'テキストボックスに区切り文字をを追加した文字列を表示


    End Sub
End Class


上記のプログラムは、テキストボックスに入力した文字列を、3文字ごとに,記号を入れて
表示するサンプルプログラムです。

Math.MinメソッドやSubstringメソッドなどの存在を知っておいて、かつそれらを活用して
目的とした動作をするプログラムを構築する力が必要なことがわかりました。
しかし、難しいものですね。
ちなみに、このプログラムを他のアルゴリズムで作成する方法があったらおしえてください。
何度もすみません。