Pregunta para Luis Mondelo!

Private Sub CommandButton5_Click()

Application.ScreenUpdating = False

For x = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(x) = True Then

cantidad = cantidad + 1

End If

Next

If cantidad > 4 Then

MsgBox "solo puede seleccionar un tope de 4", vbCritical

Exit Sub

End If

Select Case cantidad

Select Case

Case Is = 1

For x = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(x) = True Then

TextBox3.Value = ListBox1.List(x, 0)

TextBox5.Value = ListBox1.List(x, 1)

TextBox23.Value = ListBox1.List(x, 2)

.....................................................

End If

Next

End Select

End Sub

LO que quiero es que cuando los TextBox 3, 5 y 23 ESTÉN COMPLETOS me siga completando los textBox que siguen (que son los que quiero agregar) Como se hace para anexar 4 grupos mas de 3 textbox (Seria en la linea de puntos.)

SE ENTENDIO??

GRACIAS LUIS!!