Como criar uma consulta, com base em uma faixa de valores

Boa tarde a todos, estou com uma dúvida gigante, em um sistema que estou criando ao entrar em campos específicos, tipo exergia que é numérico, ele tem uma faixa de valores, tipo.

0,00% 13,70% (MUITO BAIXA)
13,71% 25,35% (BAIXA)
25,36% 37,00% (NORMAL BAIXA)
37,01% 48,65% (NORMAL ALTA)
48,66% 60,30% (ALTA)
60,31% Acima (MUITO ALTA)

O retorno seria no campo resultado, as mensagens acima.
Private Sub numero_LostFocus()
Dim Energia As Single
Select Case Energia

Case Is <= 13, 70

MsgBox ("Muito baixo")

Case Is >= 13, 71 To 25, 35
MsgBox ("Baixa")

Case Is >= 25, 36 To 37, 0
MsgBox ("Normal Baixa")

Case Is >= 37, 1 To 48, 65
MsgBox ("Normal Alta")

Case Is >= 48, 66 To 60, 30
MsgBox ("Alta")

Case Is > 60, 31
MsgBox ("Muito Alta")

End Select

End Sub

Em um campo chamado resposta, seria armazenado os textos

Depois de emitir mensagem salva a mensagem em caixa de texto

Case Is <= 13, 70

MsgBox ("Muito baixo")
me.Resposta="Muito baixo"

Case Is >= 13, 71 To 25, 35
MsgBox ("Baixa")
me.Resposta="Baixa"

Case Is >= 25, 36 To 37, 0
MsgBox ("Normal Baixa")
me.Resposta="Normal Baixa"

Case Is >= 37, 1 To 48, 65
MsgBox ("Normal Alta")
me.Resposta="Normal Alta"

Case Is >= 48, 66 To 60, 30
MsgBox ("Alta")
me.Resposta="Alta"

Case Is > 60, 31
MsgBox ("Muito Alta")
me.Resposta="Muito Alta"

isto que te passei é para ser usado em formulário.
para a consulta terá que criar uma função.