Zufalls Texte ausgeben

Texte die per Zufall ausgegeben werden. Das geht so:

Dim x As Integer
x = Int(Int(Rnd() * 2))
Select Case x
Case 0
TextBox1.Text = "Test."
Case 1
TextBox1.Text = "Test²"
Case 2
TextBox1.Text = "Test³"
End Select