/*Variable "evaluacion" es la que transformamos en una evaluación escrita "evalEscrita"*/
Select Case evaluacion
   Case 0 To 8
      [evalEscrita] = "Nunca"
   Case 11 To 20
      [evalEscrita] = "A Veces"
   Case 21 To 30
      [evalEscrita] = "Casi Siempre"
   Case Else
      [evalEscrita] = "Siempre"
End Select