Créate un formulario que contenga un TextBox, un ListBox, un PictureBox y dos CommandButton. Luego, pégale este código:
Private Cancelar As Boolean
Private Sub Command1_Click()
If Not IsNumeric(Text1) Then Exit Sub
Dim I As Double
Screen.MousePointer = vbHourglass
Cancelar = False
Picture1.AutoRedraw = True
List1.Clear
For I = 1 To CDbl(Text1) \ 2
If CDbl(Text1) Mod I = 0 Then
List1.AddItem I
List1.TopIndex = List1.ListCount - 1
List1.Refresh
End If
Picture1.Cls
Picture1.Print Format(2 * I / CDbl(Text1), "0%") & " Completado"
If Cancelar Then Screen.MousePointer = vbDefault: Exit Sub
DoEvents
Next I
Screen.MousePointer = vbDefault
End Sub
Private Sub Command2_Click()
Cancelar = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub
Espero que te sirva...