定年になり始め始めました素人です。この掲示板で見つけたのですが機能しません。
TextBoxの数字を並べ替えたいのです。

5,1,10,6,12,3,

これをSortすると

1,10,12,3,5,6   

となります。

1,3,5,6,10,12

としたいのです。　よろしくご指導ください。

VB2010を使用しています。


 Dim i As Integer
 Dim j As Integer
 Dim sort As Integer

 For i = 1 To 5
            For j = i + 1 To 6

                If Me.Controls("TextBox" & i).Text > Me.Controls("TextBox" & j).Text Then
                    sort = Me.Controls("TextBox" & i).Text
                    Me.Controls("TextBox" & i).Text = Me.Controls("TextBox" & j).Text
                    Me.Controls("TextBox" & j).Text = sort
                End If
            Next
        Next