VB6制作从数字中找平率最高的数字

Dim a(9) As Integer, length As Integer
Dim s As String, i As Integer, b As Integer
Dim Min As Integer, Max As Integer, MinI As Integer, MaxI As Integer
s = "888884444433311 "
length = Len(s)
For i = 1 To length
b = Val(Mid(s, i, 1))
a(b) = a(b) + 1
Next
b = Val(Mid(s, 1, 1))
Min = a(b)
Max = a(b)
MinI = b
MaxI = b
For i = 0 To 9
If InStr(s, i) = 0 Then GoTo L1
If Min > a(i) Then
Min = a(i)
MinI = i
End If
If Max < a(i) Then
Max = a(i)
MaxI = i
End If
L1:
Next
Print "出现最多数：", MaxI
Print
Print "出现最少数：", MinI

用instr