Como hacer un KeyGen (4 / 5 paso)

Paso 4: Codificación de los botones

Para la generar botones (1/2) poner este código:
TextBox1.Text = Int(Rnd() * 4)
Seleccione caso TextBox1.Text
Caso 0
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Caso 1
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Caso 2
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Caso 3
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Caso 4
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Caso 5
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Final seleccione