[Resolvido]Função não calcula corretamente

Boa noite pessoal.
Uso o Officce 2010 rodando no Win7.
Antes de tudo gostaria de dar os créditos a Alexandre Neves.

De posse desses códigos tenho adaptado ao meu projeto, que vem rodando perfeitamente.
Recentemente precisei fazer umas mudanças e aí babou.
Fundamentado na tabela abaixo fiz as alterações no módulo "mod_Taf", cujo objetivo é o de calcular os pontos obtidos com base no tempo transcorrido e faixa etária de cada indivíduo.



O resultado esperado é o de que os homens com idade igual/inferior a 25 anos (<= 25), ao percorrem a distância determinada, com o tempo abaixo de 9 minutos e 36 segundos, alcancem 100 pontos. Entretanto está retornando zero (0).
Fiz os teste com as outras faixas de idade e deu certo. No BdCorrida coloquei os índices de homens e mulheres para vcs compararem.
Notem que as demais faixas etárias estão retornando certinho!
Gente, o que pode está dando de errado

Desde já agradeço aos que me ajudarem.

Bom dia, eliuzidre
O tempo tem de ser convertido em x.y (x=minutos,y=segundos em decimal)
Function CorridaMasculino(IDADE As Byte, TempoMas As Double) As Byte
'o tempo é introduzido como número decimal
'sendo a parte inteira os minutos
'e a parte decimal os segundos
'17m20s = 17.2
Select Case IDADE
'Case Is < 18
Case Is <= 25
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 9.6
CorridaMasculino = 100
Case Is <= 10.12
CorridaMasculino = 90
Case Is <= 10.48
CorridaMasculino = 80
Case Is <= 11.12
CorridaMasculino = 70
Case Is <= 11.36
CorridaMasculino = 60
Case Is <= 12
CorridaMasculino = 50
Case Is >= 12.01
CorridaMasculino = 0

End Select
Case Is <= 33
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 10
CorridaMasculino = 100
Case Is <= 10.36
CorridaMasculino = 90
Case Is <= 11.12
CorridaMasculino = 80
Case Is <= 11.36
CorridaMasculino = 70
Case Is <= 12
CorridaMasculino = 60
Case Is <= 12.24
CorridaMasculino = 50
Case Is >= 12.25
CorridaMasculino = 0
End Select
Case Is <= 39
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 10.48
CorridaMasculino = 100
Case Is <= 11.36
CorridaMasculino = 90
Case Is <= 12.24
CorridaMasculino = 80
Case Is <= 13
CorridaMasculino = 70
Case Is <= 13.36
CorridaMasculino = 60
Case Is <= 14.12
CorridaMasculino = 50
Case Is >= 14.13
CorridaMasculino = 0
End Select
Case Is <= 45
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 11.36
CorridaMasculino = 100
Case Is <= 12.24
CorridaMasculino = 90
Case Is <= 13.12
CorridaMasculino = 80
Case Is <= 13.48
CorridaMasculino = 70
Case Is <= 14.24
CorridaMasculino = 60
Case Is <= 15.36
CorridaMasculino = 50
Case Is >= 15.37
CorridaMasculino = 0
End Select
Case Is <= 49
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 13.12
CorridaMasculino = 100
Case Is <= 14
CorridaMasculino = 90
Case Is <= 14.48
CorridaMasculino = 80
Case Is <= 15.24
CorridaMasculino = 70
Case Is <= 16
CorridaMasculino = 60
Case Is <= 17.12
CorridaMasculino = 50
Case Is >= 17.13
CorridaMasculino = 0
End Select
Case Is <= 50
Select Case TempoMas
Case Is <= 5
CorridaMasculino = 0
Case Is <= 14.48
CorridaMasculino = 100
Case Is <= 15.36
CorridaMasculino = 90
Case Is <= 16.24
CorridaMasculino = 80
Case Is <= 17
CorridaMasculino = 70
Case Is <= 17.36
CorridaMasculino = 60
Case Is <= 18.48
CorridaMasculino = 50
Case Is <= 18.49
CorridaMasculino = 0
End Select
End Select
End Function

Caro Alexandre Neves...
Foi feito como vc nos orientou e deu certo.
Fico deveras agradecido por me ajudar.