Visual Basic - bucle

lo que quiero hacer es que cuando ponga en una caja de texto un numero me genere en la tabla factura la cantidad de registro tantos como el numero q he puesto en la caja de texto en el codigo q hoz mando me inserta un registro solo, por eso quiero el bucle lo he intentado con For pero no me sale ayudadme por favor me urge
Aqui está el dodigo
Public Function ApostrofoSQL(t As String) As String
Dim cadres As String
Dim PosApp As Long
cadres = t
PosApp = InStr(1, cadres, "'")
While PosApp <> 0
cadres = Mid(cadres, 1, PosApp) & "'" & Mid(cadres, PosApp + 1)
PosApp = InStr(PosApp + 2, cadres, "'")
Wend
ApostrofoSQL = "'" & cadres & "'"
End Function
Public Function FechaBD(Fecha As Date) As String
FechaBD = "#" & Format(Fecha, "mm/dd/yyyy Hh:Nn:Ss") & "#"
End Function
Private Sub Command2_Click()
Dim sSQL As String
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("Db1.mdb") 'El path a tu BD
sSQL = "Insert into factura ([Id Factura],[Datos],[fecha Factura], [factura]) VALUES (" & _
txtFields(0).Text & "," & _
ApostrofoSQL(txtFields(1).Text) & "," & _
FechaBD(txtFields(2).Text) & "," & _
txtFields(3).Text & ")"
db.Execute sSQL, dbFailOnError

No se si entiendo tu problema, pero me parece ver que en el INSERT los valores que insertas són los 4 campos del registro si quieres insertar otro registro o otros los valores indice de cada caja de texto deben contener los nuevos valores. Es decir el siguiente registro podria ser "Insert into ..... Values (" & txtfields(4) & "," & ....(5) ; lo que podria ser .. Values (" & txtfields(i) & "," & ....(i+1) ; hasta que i sea igual a j en un bucle for i=0 to j*4 step 4.
O quizás no te he entendido.