vb中如何比较一个整数中有几个相同的数

请问如何比较一个整数中有几个不同的数
举例：任意一个五位数 ，该如何写程式，才能比较出它们当中究竟有几个相同的数.
比方说:12555 中有3个相同的数
12550 中有2个相同的数
12504 中没有相同的数
用什么程式可以实现上面的列子？ 注意 我指的是任意一个五位数，请大家帮忙！

'加一个文本框,把原始数据输入文本框中,一个命令按钮
Private Sub Command1_Click()
Dim a As Integer, b(9) As Integer, myTempStr As String
For a = 0 To 9
myTempStr = Replace(Text1.Text, CStr(a), "")
b(a) = Len(Text1.Text) - Len(myTempStr)
Next
myTempStr = Text1.Text & "中共有:" & vbCrLf
For a = 0 To 9
If b(a) <> 0 Then myTempStr = myTempStr & b(a) & "个" & a & vbCrLf
Next
MsgBox myTempStr
End Sub

这是统计5位数中，每位数出现的次数：
Option Explicit

Private Sub Command1_Click()
Dim S$, i%, n%, k%, j%, S1(1 To 5) As Integer, cnt(1 To 5) As Integer
S = Trim(Text1)

For i = 1 To Len(S)
S1(i) = Val(Mid(S, i, 1))
Next i

For i = 1 To Len(S)
k = S1(i)
For j = 1 To Len(S)
If S1(j) = k Then cnt(i) = cnt(i) + 1
Next j
Next i

For i = 1 To Len(S)
Print S1(i),
Print cnt(i)
Next i

End Sub