Intendo quello che ho scritto, ossia aggiungi al codice inziale la dichiarazione
Dim QuantiNumeri(99) as integer

modifica il ciclo for cosė:

codice:
For i = LBound(vettore) To UBound(vettore) 
   If IsNumeric(vettore(i)) Then 
      Somma = Somma + vettore(i) 
      Quanti = Quanti + 1 
      QuantiNumeri(vettore(i)) = QuantiNumeri(vettore(i)) + 1 
    End If 
Next

Ora puoi fare:

for i = Lbound(QuantiNumeri) to Ubound(QuantiNumeri)
    MsgBox "Ci sono " & cstr(QuantiNumeri(i)) & " numeri " & cstr(i)
next
Non ho scritto il codice in VB ma direttamente nel corpo del msg, quindi potrebbero esserci errori di sintassi. Sistema quelli, ma la logica č questa. Un'ulteriore affinamento sarebbe di avere l'array QuantiNumeri di dimensioni variabili, a seconda di quelle che mi servono; ma questa č la versione 2.0 che un pigro come me svilupperā solo sotto tortura (o se obbligato dal mio capo...)

Ciao