Visual Basic - consulta

Dim Fecha1 As Date
Dim Fecha2 As Date
Dim AÑOS As Integer

Private Sub Command1_Click()

Fecha1 = DTPicker1.Value
Fecha2 = DTPicker2.Value
AÑOS = DateDiff("yyyy", Fecha1, Fecha2)
Text3 = Format(AÑOS, "###0")
Text4 = Format(AÑOS / 3, "###0")


hola mi duda es que quisiera que la informacion del text3.text (es decir los años),
cuando este fuera igual o inferior <= 20 en un text5.text se expresara " X"

si fuese igual a 21 o 22 o 23 o 24 o 20 o 26 then
el texto del text5.text fuese " Y"
o
si fuese igual a 27 o 28 o 29 o 30 el resusltado del text5 fuese "z"

Gracias.

Podes hacerlo con un SELECT CASE

Select Case CInt(Text3.Text)
Case Is <= 20
text5.Text = "x"
Case Is = 21, 22, 23, 24, 25, 26
text5.Text = "y"
Case Is = 27, 28, 29, 30
text5.Text = "z"
End Select

saludos.-

Muchas gracias, asi lo hare.