SELECT CASE

PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE 1
TextBox2.Text = "UNO"
CASE 2, 3
TextBox2.Text = "DOS O TRES"
CASE ELSE
TextBox2.Text = "NO SE"
END SELECT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END