度々申し訳ありません。
すごく簡単な事かもしれませんが、質問させてください。

テキストボックスがいくつかあり、その中に

Textbox1.text = 1234
Textbox2.text = 1000
Textbox3.text = B
Textbox4.text = 111
TextBox5.text = A

という内容が入っているとき、これらを昇順でソートし、テキストボックスの中身を

Textbox1.text = 111
Textbox2.text = 1000
Textbox3.text = 1234
Textbox4.text = A
TextBox5.text = B

としたいのですが、大小比較で並び変えようとすると、

Textbox1.text = 1000
Textbox2.text = 111
Textbox3.text = 1234
Textbox4.text = A
TextBox5.text = B

となってしまいます。
integer型にすると数値はきれいにソートされると思いますが、A,Bでエラーが出ますし・・・

何かいい解決法は無いでしょうか。
お願いします。

現在のプログラムです

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

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

           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