Problemas con select case en cajas de texto de access

Un botón de comando detecta un valor decimal de una caja de texto. En el generador de código selecciono el Botón de comando en el evento evento click:

Dim en As Single 'en es la variable para alojar el dato de la caja de texto "texto20"

en = Texto20.value

select en

case en < 0
Texto21.text = "Error"

case en < 3

Texto21.text = "Pierde la materia"

case en >=3
Texto21.text = "Gana la materia"

case else

Texto21.text = "Error"

End Select

Al ejecutar, cuando escribo "0" sale "Pierde la materia"; lo cual no concuerda con nada y por lo demás sale "Error".