Excel VBA テキストボックス内の数値をソートさせるのには？

質問

ＶＢＡ初心者です。自分なりに本やネットで調べたのですが、
答えが見つからなかったので質問させていただきます。

フォーム内にある１つのテキストボックスに５桁の数値を入力し、
ボタンを押すことで、入力した数値をソートさせ、シート(Ａ1)に追加入力させたい。

テキストボックス→(数値入力)→ボタンを押す→(ソート)→シート[A1]に入力
テキストボックス→９１３７５→ボタンを押す→１３５７９→シート[A1]=１３５７９

自分の考えでは、入力された５桁の数値を１桁ずつ配列に格納出来れば
ソートが可能だと思うのですが、方法が分かりません。
またその場合、ソート後に１桁ずつ別々に格納した数値を
ソートさせた５桁の数値にする場合はどのようにしたら良いのでしょうか？

また、この考え方以外にも何か方法がありましたらご教授ください

回答No.2

fumufumu_2006

ANo.1さんと同様に、ソートは他人（excel)に任せる方法です。
作業シートを使って、[データ][並べ替え]と同様の事をしてます。
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim str As String
Dim i As Integer
Set ws = Sheets("Sheet2") '適当な作業シートを指定してください
'作業シートクリア
ws.Cells.Clear
'テキストボックスの文字を作業シートのA列へ1文字づつ書き込む
For i = 1 To Len(TextBox1.Text)
ws.Cells(i, 1) = Mid(TextBox1.Text, i, 1)
Next
'A列を並べ替え
ws.Columns("A:A").Sort Key1:=ws.Range("A1"), Header:=xlNo
'作業シートのA列をまとめてActiveSheetのA1へ
str = ""
For i = 1 To ws.UsedRange.Rows.Count
str = str & ws.Cells(i, 1)
Next
Range("A1") = str
End Sub

.NET Frameworkに任せる方法です
Private Sub CommandButton1_Click()
Dim d As Object
Set d = CreateObject("System.Collections.ArrayList") '.NET Frameworkへの参照
'Dim d As New ArrayList '参照設定:Common Language Runtime Libraryにした場合、上記2行と同じ意味
Dim str As String
Dim i As Integer
'テキストボックスの文字を１文字づつArrayListへ
For i = 1 To Len(TextBox1.Text)
d.Add Mid(TextBox1.Text, i, 1)
Next
'並べ替え
d.Sort
'ArrayListのデータをまとめてActiveSheetのA1へ
str = ""
For i = 0 To d.Count - 1
str = str & d(i)
Next
Range("A1") = str
'後始末
Set d = Nothing
End Sub

お礼

返信が送れてしまい申し訳ございません。お答えいただきありがとうございます。
勉強中の身ですがNET Frameworkに任せるやり方もあるのですね
まだ使いこなすには時間がかかりそうですが、こちらも参考にさせていただきます。
ありがとうございます