TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 1
TextBox1.Text = "Texto 1"
Case 2
TextBox1.Text = "Texto 2"
Case 3
TextBox1.Text = "Texto 3"
Case 4
TextBox1.Text = "Texto 4"
End Select
Me.Close()
si explicas los codigos mejor xD
Con gusto :)