Private Sub Calcular_Click()
Dim fin, resto As Integer
Dim ciclo, ciclo2 As Integer
Dim esprimo As Boolean
cboMuestra.Clear
fin = Val(txtIngreso.Text)
If fin > 2 Then
'inicio en 3 pues 1 y 2 sabemos que son primos
cboMuestra.AddItem "1"
cboMuestra.AddItem "2"
For ciclo = 3 To fin
esprimo = True
For ciclo2 = 2 To ciclo - 1
resto = ciclo Mod ciclo2
MsgBox ciclo & " " & resto
If resto = 0 Then
esprimo = False
End If
Next ciclo2
If esprimo = True Then cboMuestra.AddItem (Str(ciclo))
Next ciclo
End If
End Sub