如何做vb统计器？

[lin19799]

刚学vb的菜鸟问：为什么下面代码不能从1~49个数做出统计？如何改？还有假如在text1输如甲班25，01，30，乙班46，20，10，text2只做出相同数字的出现次数统计？如何做甲班乙班出现次数？

Private Sub Command4_Click()
 Dim FindStr(1 To 9) As Integer 
  Dim LenStr As Integer 
  Dim TStr As String 
  Dim i, j As Integer 
  Dim StrOut() As String 
  Dim SltIn As String 
  Dim IsAga As String 
  Dim TmpL As String
  Text2 = vbNullString 
  TStr = Text1
IsAga = "0"
For i = 1 To 9 
   LenStr = Len(TStr)
 TStr = Replace(TStr, CStr(i), vbNullString)
 FindStr(i) = LenStr - Len(TStr)
Next
For i = 1 To 9 
   If InStr(1, IsAga, CStr(i), vbTextCompare) = 0 Then 
      For j = 2 To 9 
       If FindStr(i) = FindStr(j) And i <> j Then
     IsAga = IsAga & j 
         If SltIn = vbNullString Then
       SltIn = i & "," & SltIn & j
      Else
       SltIn = SltIn & "," & j
      End If
     End If
   Next
   ReDim Preserve StrOut(k)
   If SltIn = vbNullString Then SltIn = CStr(i)
   StrOut(k) = SltIn & "出现 " & FindStr(i) & "次" & vbNewLine
   SltIn = vbNullString 
      k = k + 1
  End If
Next

  
For i = UBound(StrOut) To 1 Step -1 
 For j = 0 To i - 1
 If Val(Right(StrOut(j), Len(StrOut(j)) - InStr(1, StrOut(j), " ", vbTextCompare))) < Val(Right(StrOut(j + 1), Len(StrOut(j + 1)) - InStr(1, StrOut(j + 1), " ", vbTextCompare))) Then

     
    TmpL = StrOut(j)
    StrOut(j) = StrOut(j + 1)
    StrOut(j + 1) = TmpL
   End If
 Next
Next
For i = 0 To UBound(StrOut) 
  Text2 = Text2 & StrOut(i)
Next
End Sub