求VB统计数字出现频率的代码

我所说的意思就是在一个TEXT中，我已经计算出很多数，比如这样的123050789 103450089 1230060890 103450089 123050789 103450089 1230060890 103450089 123050789我的目的是想统计里面各个数字出现的字数。比如上边的结果是1，3，8，9出现 9次5出现 7次2出现 5次4出现 4次7出现 3次6出现 2次不算里面的0 然后把数字出现的次数按从多到少的顺序排下来。 结果通过COMMAND1 显示在 TEXT2 中希望高手朋友不会因为分少不理我 在线等答 谢谢啦

Dim intNumber(1 To 9) As Integer

Private Sub Command1_Click()

Dim intI As Integer

Dim intTemp As Integer

Dim intLen As Integer

Dim strTemp As String

'Text1 内容不为空
If Text1.Text <> "" Then

'取Text1 字串长度
intLen = Len(Text1.Text)

For intI = 1 To intLen

'分别取一个字符
strTemp = Mid(Text1.Text, intI, 1)

'---判断该字符是否为数字-------
If IsNumeric(strTemp) = True Then

intNumber(Val(strTemp)) = intNumber(Val(strTemp)) + 1

Else
End If

Next intI

Else
End If

strTemp = ""

List1.Clear

For intI = 1 To 9