YuOさんが書かれているようにTextプロパティは文字列型なので
普通に比較すると国語辞書の掲載順で考えた場合に前か後かという判断になります。
国語辞書に載るとしたら「10」は「3」の前ですよね。

数値として比較するには自分でいったん数値に変換する必要があります。
その方法はさまざまですが、たとえばCInt関数を使った例を書いてみました。

  

Dim i As Integer

Dim j As Integer

Dim sort As Integer



For i = 1 To 5

    For j = i + 1 To 6



        If CInt(Me.Controls("TextBox" & i).Text) > CInt(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