Dividir, selectivamente

Ojalá y aun sea tiempo de dar respuesta a tu pregunta, más vale que si, por que me la quebré un rato y era tan sencillo:
El siguiente código lo agrego a un botón, asumiendo que tengo un cuadro de texto llamado <<Cantidad>> donde tecleo la cantidad a repartir, asumiendo que tengo cuaddros de texto llamados: <<Txt1, txt2, txt3... txt12, representando todos los meses
Ojalá y te sirva y si quieres el ejemplo dame un correo para enviártelo.
Private Sub cmdRepartir_Click()
Dim lngTocaDE As Long
Dim lngComprobar As Long
Dim lngDiferencia As Long
Dim r, p As Integer
'Si la cantidad es numerica ó mayor de cero, lo calcule
If IsNumeric(Cantidad) And Cantidad > 0 Then
'Sacamos el entero para ver de a como toca normalmente
lngTocaDE = Int((Int(Cantidad) / 12))
'Comprobamos para ver cuento da
lngComprobar = lngTocaDE * 12
'Sacamos cuantas unidades nos sobran
lngDiferencia = (Cantidad - lngComprobar)
'asignamos las unidades de a como toca mas 1 unidad
'a los primeros meses
For r = 1 To lngDiferencia
Me("txt" & r) = (lngTocaDE + 1)
Next
'Los siguientes meses asignamos las unidades
'de manera normal
For p = lngDiferencia + 1 To 12
Me("txt" & p) = lngTocaDE
Next
Else
'Si la cantidad no es numerica o mayor de 0
'entonces no haga nada y se salga
Exit Sub
End If
End Sub

NO EXPERTO, no es demasiado tarde, de hecho gracias por dedicarle tiempo, si me gustaría que me mandaras el ejemplo, y en serio que te vas a ir al cielo con todo y zapatos y también computadora
Gracias
[email protected]

Disculpa, me falto el internet un par de de días, te agradezco mucho