Option Explicit Dim Numeros(0 To 5), contador, a, b, valor As Integer Dim YaEsta As Variant Private Sub Form_Load() Randomize End Sub Private Sub Crear_Click() For a = 0 To 4 Generados.Col = 0 Generados.Row = a Generados.Text = "" Next contador = 0 While contador < 5 10 b = 0 valor = Int((Rnd * 99) + 1) For a = 0 To 4 Generados.Col = 0 Generados.Row = a YaEsta = Generados.Text If valor = YaEsta Then b = 1 Next If b = 1 Then GoTo 10 Numeros(contador) = valor contador = contador + 1 Wend End Sub Private Sub Mostrar_Click() For a = 0 To 4 Generados.Col = 0 Generados.Row = a Generados.Text = Numeros(a) Next End Sub