Solución 4.10 Contar el número de ocurrencias de un número

Public Sub OcurrenciasNumero() 
    Dim intSorteo As Integer 
    Dim intNumero As Integer 
    Dim intNumOcurrencias As Integer 
    Dim intAleatorio As Integer 
    Dim varTestEntrada As Variant 
    varTestEntrada ...